[maddamo4ka]

Подскажите, пожалуйста! Какая функция считывает координаты с мышки, после того как нажал на левую кнопку мыши?

[Grunch]

Смотри событие OnMouseDown

[maddamo4ka]

а подробнее можно?

[Grunch]

У всех наследников TControl есть property OnMouseDown. То есть, в event, например формы, есть строчка OnMouseDown. При двойном щелчке по ней создается процедура

Код:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin

end;

Здесь Button может принимать значение mbLeft, mbRight или mbMiddle. А координаты при этом передаются в X и Y. То есть надо сделать что-то типа этого:

Код:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button=mbLeft then
  begin
    //что-то делаем с X и Y
  end;
end;

[maddamo4ka]

Спасибо))а если допустим чтобы нажав на левую кнопку мыши координаты передавались в Label?

[M.A.D.M.A.N.]

Если глобально перехватить курсор, то надо использовать GetCursorPos
для отлова клика внутри формы

Код:

procedure OnMouseDown(~~~~);
begin
  if Button<>mbLeft Then Exit;
  Label1.Caption:=Format('x=%d y=%d',[x,y]);
end;

[maddamo4ka]

Спасибо)а как допустим сделать так, чтобы если отпускаешь кнопку мышки то координаты пишутся в другой Label? или так нельзя? просто мне надо чтобы координаты когда нажимаешь отражались в одном Label и оставались там, а как только отпускаешь кнопку отображались координаты в другом Label.))

[M.A.D.M.A.N.]

Надо обрабатывать событие OnMouseUp

[maddamo4ka]

точно также?

[Alexo]

Почемуб перед вопросом не попробовать самому?

[Grunch]

Точно так же.

[maddamo4ka]

Спасибо большое)) пробовала делать что бы другие координаты передавались в другие лейблы, но не получается((