动态提醒
首页> delphi头条> 正文

delphi无代码实现拖动窗体与有代码实现拖动窗体

原创 2020-06-27 602
delphi线上教程

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

控件:StyleContols

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


image.png


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

控件:StyleContols

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


ReleaseCapture;

Perform(WM_SYSCOMMAND, $F012, 0);


image.png


delphi中文网最新课程二维码
推荐视频教程
  • delphi基础知识
  • delphi语法基础
  • delphi常用组件
  • delphi过程与函数
  • 视频教程分类