Selanjutnya, batasi area pergerakan mouse menjadi (100,100,200,200)
varrect:TRek;
mulai
kanan.Kiri:=100;
rect.Top:=100;
rect.Bawah:=200;
lurus.Kanan:=200;
windows.ClipCursor(@rect);
Berikut ini mengembalikan area pergerakan mouse
windows.ClipCursor(0);
Tidak perlu memberikan contoh spesifik, ini sangat sederhana. Hee hee hee hee
Bantuan di Delphi mengatakan ini:
Fungsi ClipCursor membatasi kursor pada area persegi panjang di layar.
Jika posisi kursor selanjutnya (diatur oleh fungsi SetCursorPos atau mouse)
terletak di luar persegi panjang, Windows secara otomatis menyesuaikan posisi untuk mempertahankan
kursor di dalam area persegi panjang.
Kursor Klip BOOL(
CONST RECT *lPRect // penunjuk ke struktur dengan persegi panjang
);
Parameter
lprc
Menunjuk ke struktur RECT yang berisi koordinat layar bagian atas
sudut kiri dan kanan bawah persegi panjang pembatas. Jika parameter ini adalah
NULL, kursor bebas bergerak kemana saja di layar.
Nilai Pengembalian
Jika fungsinya berhasil, nilai yang dikembalikan bukan nol.
Jika fungsi gagal, nilai yang dikembalikan adalah nol. Untuk mendapatkan informasi kesalahan yang diperluas, panggil GetLastError.
Perkataan
Kursor adalah sumber daya bersama. Jika suatu aplikasi membatasi kursor, maka itu harus
lepaskan kursor dengan menggunakan ClipCursor sebelum melepaskan kontrol ke yang lain
aplikasi.
Proses pemanggilan harus memiliki akses WINSTA_WRITEATTRIBUTES ke stasiun jendela.