[Delphi 7] Muis X en Y laten zien?

[HUKED]

hey,

Ik wil in mijn project graag de muis coordinaten Y en X laten zien in een textbox. Kan dit? zo ja hoe? allebei een apparte textbox natuurlijk.

Bedankt.

 

[gebruiker51]

Hoi,

Dat is heel simpel.

var
 Mouse: TPoint;
begin
  GetCursorPos(Mouse);
  edit1.text := IntToStr(mouse.X);
  edit2.text := IntToStr(mouse.Y);
end;

Jeffrey