Membaca Posisi Cursor Mouse di Delphi #151

andrypein.net : Dari pada kosong tidak ada postingan, lebih baik share application lagi dah,kali ini tentang membaca posisi cursor mouse di delphi.

Skrinsutnya bisa dilihat seperti pada gambar di bawah ini :

Bahannya sangat sederhana, hanya 3 buah label saja.

Kemudian beri event pada formnya dan event tersebut OnMouseMove dan kodenya :

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
 Y: Integer);
var
 tikus : Tmouse;
begin
 label2.Caption:=IntToStr(tikus.CursorPos.X);
 label3.Caption:=IntToStr(tikus.CursorPos.Y);
end;

Projek apps Posisi Cursor Mouse di Delphi bisa di donlod di :

Download

*AFK