Форум АНТИЧАТ - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Цитата:

Сообщение от DimkO

хотелось бы знать,возможно ли в делфи как то читать координаты нажатия мышки,допустим в какой то области формы?

Код:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
 t:tpoint;
begin
 GetCursorPos(t);
 Label1.Caption:=inttostr(t.X)+' - '+inttostr(t.Y);
end;

Или же проще:

Код:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 Label1.Caption:=inttostr(X)+' - '+inttostr(Y);
end;