Delphi实现无边框窗体的移动

最新推荐文章于 2026-05-03 06:54:50 发布

原创最新推荐文章于 2026-05-03 06:54:50 发布 · 2.5k 阅读

7 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

本文介绍了一种在窗体BorderStyle设置为bsNone时实现窗体移动的方法。通过释放捕捉并发送特定消息来完成无边框窗体的移动。

开发板推荐：天空星STM32F407VET6开发板

超高性价比 STM32主控 | 超高主频 | 一板兼容百芯 | 比赛神器 | 沉金彩色丝印

点击查看

将窗体的 BorderStyle 设置为 bsNone，窗体的标题栏就不会显示，此时，如果想移动窗体，方法如下：

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture; 
  PostMessage(Self.Handle,WM_SYSCOMMAND,SC_MOVE+1,0);
end;

开发板推荐：天空星STM32F407VET6开发板

超高性价比 STM32主控 | 超高主频 | 一板兼容百芯 | 比赛神器 | 沉金彩色丝印

点击查看

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

D-Plus-Plus

关注关注

3
点赞
踩
7

收藏

觉得还不错? 一键收藏
0
评论
分享

复制链接

分享到 QQ

分享到新浪微博

扫一扫
举报

举报

Delphi 无边框窗口的实现

05-18

使用Delphi源码实现一个无边框窗口，把标题栏去掉了，同时也去掉了标题栏上的最大化、最小化和关闭按钮，测试发现，这个无标题栏无边框的窗体不能拖动，要是能拖动就更好了。运行环境：Windows/Delphi7

参与评论您还未登录，请先登录后发表或查看评论

delphi 无标题窗体加边框可拖拽调整大小及移动窗体

09-17

delphi无标题窗体（borderstyle=bsnone）默认没有边框，无法移动，也无法拖拽必变窗体大小，本资源为无标题窗体加边框并可拖拽调整大小以及移动窗体位置。

实现拖动无标题窗口的5种方法

编程资料收集与共享交流

11-26

828

1。MouseMove事件中加入：// ReleaseCapture;// Perform(WM_SYSCOMMAND, $F017, 0); 2.MouseDown事件中加入：// POSTMESSAGE(Self.Handle,WM_LBUTTONUP,0,0);// POSTMESSAGE(Self.Handle,274,61458,0);

别只当它是设计软件！CorelDRAW X6的这些隐藏功能，帮你搞定文档排版与批量处理

最新发布

weixin_30847939的博客

05-03

216

本文揭示了CorelDRAW X6在文档排版与批量处理中的隐藏功能，帮助用户超越设计软件的传统认知。通过精准排版、技术图纸处理、批量操作等实用技巧，提升办公效率，特别适合技术文档制作与复杂图文混排场景。

Delphi 7/2010窗体控件随窗口大小自动调整位置和大小，支持多个控件

mark885的博客

02-12

1359

【代码】Delphi 7/2010窗体控件随窗口大小自动调整位置和大小，支持多个控件。

Delphi 如何使无边框窗体可移动

xwl598017661的博客

05-25

425

直接在窗体的OnMonseDown事件中添加以下代码： procedure TForm16.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin POSTMESSAGE(Self.Handle,WM_LBUTTONUP,0,0); POSTMESSAGE(Self.Handle,274,61458,0); end; ...

delphi实现拖动无标题窗口的5种方法

paulfzm的专栏

03-17

644

1.MouseMove事件中加入：// ReleaseCapture;// Perform(WM_SYSCOMMAND, $F017 , 0); 2.MouseDown事件中加入：// POSTMESSAGE(Self.Handle,WM_LBUTTONUP,0,0);// POSTMESSAGE(Self.Handle,274,61458,0); 3.MouseDown事件中加入：// Rele...

Delphi中拖动无边框窗口的几种简单方法

weixin_30828379的博客

07-16

162

1.MouseMove事件中加入： ReleaseCapture; Perform(WM_SYSCOMMAND, $F017 , 0); 2.MouseDown事件中加入： POSTMESSAGE(Self.Handle,WM_LBUTTONUP,0,0); POSTMESSAGE(Self.Handle,274,61458,0); 3.MouseDown事件中...

Delphi如何实现无边框窗体的移动

dkopg24406的专栏

09-02

297

在控件的MouseDown事件中加入if (ssleft in Shift) then begin ReleaseCapture; Perform(WM_syscommand, $F012, 0);end;如form1：procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftS...

Delphi移动无标题窗体...

friendan的专栏

08-24

3941

在窗体(或控件)的OnMouseDown事件中加入下面几行代码即可 //--------Delphi移动无标题窗体------------------------------------ procedure TForm1.OnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer

Delphi无标题窗体增强功能实现：让无标题窗体更具交互性

gitblog_06708的博客

04-12

868

Delphi无标题窗体增强功能实现：让无标题窗体更具交互性去发现同类优质开源项目:https://gitcode.com/ 项目介绍在软件开发领域，Delphi 语言因其高效的执行速度和清晰的语法结构，一直受到开发者的喜爱。然而，在使用无标题窗体（borderstyle=bsnone）时，开发者常常面临一个问题：用户无法通过常规方式来移动或调整窗体大小。本项目正是为了解决这一难题而诞生，它提供...

可改变大小的无边框窗体

09-20

可改变大小的无边框窗体

四周带阴影的无边框窗口（DELPHI源代码）

11-20

四周带阴影的无边框窗口（DELPHI源代码）使用说明： 1、将Vcl.ShadowForms加入Uses; 2、将默认的TForm1 = class(TForm)改为TForm1 = class(TShadowForm); 3、将Form的BorderStyle改为bsNone; 4、在From的FormMouseDown事件中增加以下语句： ReleaseCapture; SendMessage(Handle, WM_SYSCOMMAND, SC_MOVE + HTCaption, 0);

无边框圆角窗体，窗体带边框线和阴影

05-10

有点类似qq登录界面的窗体样式可设置无边框窗体圆角属性可设置窗体边框线和边框线颜色可拖动可设置窗体阴影带作者logo 可设置不显示详细请查看说明

用键盘方向键移动无边框窗体并用Esc键关闭窗体

hl3464的专栏

03-09

749

<br />{ 功能：用键盘操作无边框窗体移动并关闭。环境：delphi7+winxp3 通过测试完成时间：18:09 2011-3-7 } unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label

Delphi 无标题窗体增强功能实现

gitblog_06743的博客

04-12

359

Delphi 无标题窗体增强功能实现去发现同类优质开源项目:https://gitcode.com/ 资源简介本资源提供了一种在 Delphi 开发环境中对无标题窗体（borderstyle=bsnone）进行增强的方法。默认情况下，无标题窗体不显示边框，用户无法通过常规方式移动或调整窗体大小。本资源通过特定的技术手段，为无标题窗体添加了边框，同时实现了窗体的拖拽调整大小和移动位置的功能。功...

完全自定义窗体风格的实现

weixin_30448685的博客

05-10

116

最小化到任务栏postmessage(Self.Handle,WM_SYSCOMMAND,SC_MINIMIZE,0); 最大化或还原procedure Tf_MainForm.RzToolButton1Click(Sender: TObject);var abd: TAppBarData;begin inherited; if WindowState=wsnormal then ...

WinAPI: PtInRect - 判断点是否在矩形中

weixin_30823001的博客

05-23

本例效果图: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton;...

再学 GDI+[74]: 区域(3) - IsVisible

weixin_34211761的博客

09-26

136

为什么80%的码农都做不了架构师？>>> ...