Souřadnice kde klikla myš na obrázek – Delphi – Fórum – Programujte.com

Dobrý den,
v mém programu potřebuji abych zjistil kam a jakým tlačítkem klikla myš na obrázek. Našel jsem na netu tuto proceduru, ale i přesto, že by mělo, mi to nefunguje. Udělal jsem tedy i kontrolní labely kam mi procedura vypisuje momentální souřadnice, ale ani to se nestane. Mohl by mi někdo prosím poradit kde by asi mohla být chyba či mi sem napsat kód, kde to konkretně funguje. Předem děkuji .

type
TForm1 = class(TForm)
.
.
.
procedure Image2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Label2.Caption := 'souradnice x: '+inttostr(x);
Label3.Caption := 'souradnice y: '+inttostr(y);
.
.
.

end;

A nastavil jsi OnClick na tu proceduru?

Takhle nějak.

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

var p: Tpoint;
begin

p:= TImage(Sender).ClientToScreen(X,Y);
Label2.Caption := 'souradnice x: '+inttostr(p.x);
Label3.Caption := 'souradnice y: '+inttostr(p.y);
.
.
.

end;