Jannah Theme License is not validated, Go to the theme options page to validate the license, You need a single license for each domain name.
DelphiPemrograman

Membaca Posisi Cursor Mouse di Delphi #151

Burung pinguin tidak dapat terbang di udara, mereka terbang di laut

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 :

Posisi Cursor Mouse di Delphi
form

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

Related Articles

2 Comments

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

Back to top button