动态提醒

下一节课程: T1配置概述 (33364次播放)

5秒后自动播放下一节
  重新观看
章节

1.Delphi无代码拖动窗体实现

控件:StyleContols

方法:使用scLabel、 scGpPanel等控件的DragForm属性来设置。只需要将DragForm设置为True,拖动控件时,窗口跟随移动。


image.png


2.Delphi有代码拖动窗体实现

控件:StyleContols

方法:想要拖动窗口,可以在某个控件的OnMouseDown事件中写下以下代码。


ReleaseCapture;

Perform(WM_SYSCOMMAND, $F012, 0);


image.png