Tsizectrl
Komponen Delphi non-visual untuk memungkinkan runtime bergerak dan mengubah ukuran kontrol.
Penulis Asli: Angus Johnson
http://angusj.com/delphi/
http://angusj.com/delphi/sizectrl.html
Diuji pada:
Delphi 3, 4, 5, 6, 7, 10.1 Berlin, 10.2 Tokyo
Versi:
Ini adalah garpu sejak versi terakhir penulis (7.2 - 3 September 2006)
Tangkapan layar komponen tsizectrl:
Perekat:
Pindah:
Kontrol yang disejajarkan telah menonaktifkan "Tombol ambil" menangani di sepanjang perbatasan:
Beberapa kontrol dapat dipindahkan atau diubah ukurannya bersama:
Penggunaan Dasar:
- Tambahkan komponen tsizectrl (sizectrl1) ke formulir Anda.
- Atur properti Sizectrl1 (warna tombol dll) sesuai keinginan.
- Tetapkan metode acara (Mulai, Selama & Ukuran Akhir Acara) seperti yang diinginkan.
- Dalam metode onCreate formulir, sizectrl1.registercontrol () semua target yang mungkin.
- Dalam metode Menuitem yang ditugaskan, beralihnya properti yang diaktifkan Sizectrl1.
- Setelah diaktifkan:
- Klik atau tab untuk memilih target.
- Tahan tombol shift ke bawah untuk memilih beberapa target.
- Ubah Ubah Target dengan Klik & Menyeret tombol Ukuran Target atau dengan menahan tombol Shift saat menggunakan tombol panah.
- Pindahkan kontrol dengan klik & menyeret target atau dengan menggunakan tombol panah.
Catatan Lain -lain:
Menangkap pesan WM_SETCURSOR dari header ListView membutuhkan pengait pawang pesan header juga. Saya tidak berpikir peningkatan kecil dalam manajemen kursor ini membenarkan upaya pemrograman tambahan yang cukup besar.
