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消息也需要挂接标头的消息处理程序。我认为光标管理中的这种较小的改进并不能证明额外的编程工作是合理的。