TSizeCtrl

tsizectrl

非視覺Delphi組件可以實現運行時移動和調整控件的大小。

原始作者：安格斯·約翰遜

http://angusj.com/delphi/

http://angusj.com/delphi/sizectrl.html

測試：

Delphi 3、4、5、6、7、10.1柏林，東京10.2

版本：

這是自作者的最後一個版本以來的叉子（2006年9月7日至3日）

tsizectrl組件屏幕截圖：

漿紗：

移動：

對齊控件已禁用沿固定邊框的“抓取按鈕”手柄：

可以一起移動或調整多個控件：

基本用法：

1. 將tsizectrl組件（SizectRl1）添加到您的表格中。
2. 根據需要設置Sizectrl1屬性（按鈕顏色等）。
3. 根據需要分配事件方法（啟動，在和最終大小/移動事件）。
4. 在表格的ongreate方法中，sizectrl1.registercontrol（）所有可能的目標。
5. 在分配的menuitem方法中，切換SizectRl1.enabled屬性。
6. 啟用後：
   • 單擊或選項卡以選擇目標。
   • 按下移位鍵以選擇多個目標。
   • 通過單擊並拖動目標的調整大小按鈕或在使用箭頭鍵時將移位鍵放下來調整目標大小。
   • 通過單擊並拖動目標或使用箭頭鍵移動控件。

雜項注：

捕獲ListView標頭的WM_SETCURSOR消息也需要掛接標頭的消息處理程序。我認為光標管理中的這種較小的改進並不能證明額外的編程工作是合理的。