[图文]delphi的系统消息实现的运行期控件

delphi程序源码:

1.捕获消息就行了，然后判断消息参数，就是WM_SYSCOMMAND消息

2.一般的控件都可以拖动。  
  首先处理  
  　OnMouseDown  
        在其中加入  
  　　　　(Sender   as   T...).BeginDrag(False);  
   
  然后处理  
  　OnDragDrop  
        改变位置就可以了。

很多人在论坛讨论关于运行期设计控件，有些方法实现起来过于麻烦。于是写了这个DEMO,用系统消息的方式实现运行期平滑拖拽控件以及改变控件大小！

将鼠标放在本控件的不同位置时会变化,此时可改变相应的属性

下载地址:

delphi的系统消息实现的运行期控件   33k

程序开发者:小新