[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;