Mengambil Posisi Cursor

//Mengambil Posisi Cursor ...

//Masukkan Kode kedalam Komponen timer .. dan buat juga 2 buah edit ....


procedure TForm1.Timer1Timer(Sender: TObject);
Var x : TPoint;
begin
Edit1.Text := IntToStr(Mouse.CursorPos.X) ;
Edit2.Text := IntToStr(Mouse.CursorPos.y) ;
end;


{
Mouse.cursorPos.X ... adalah Jarak Kiri...
Mouse.cursorPos.Y ... adalah Jarak Atas...
}