Delphi隐藏窗口标题栏

最新推荐文章于 2023-08-02 10:05:57 发布
最新推荐文章于 2023-08-02 10:05:57 发布
阅读量766 收藏 1
点赞数 1
分类专栏： Delphi 文章标签： 隐藏标题栏
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/yanjinrong/article/details/107210860
版权

//隐藏窗口标题栏
procedure FormHideTitle(AForm: TCustomForm);
begin
  SetWindowLong(AForm.Handle, GWL_STYLE, GetWindowLong(AForm.Handle, GWL_STYLE) AND NOT WS_CAPTION);
  AForm.ClientHeight := AForm.Height;
end;

YanJinrong
关注
  • 1
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
隐藏标题栏，窗口拖动
12-22
本代码介绍了如何隐藏标题栏，如何窗体中非标题栏区域拖动窗体
Delphi实现拖动按钮移动无标题栏窗口
05-11
无标题栏的窗体的拖动功能实现，Delphi添加一个可拖动窗体的按钮，通过对此按钮的控制可移动窗体，实现按住标题栏移动窗口的功能，无标题栏也就不能显示最大化、最小化和关闭窗口的功能，因此本程序自定义了一个关闭...
delphi隐藏窗口标题栏
qq_43404969的博客
06-08 662
dddddd我是快乐的小当家
Delphi 设置窗体无标题栏和边框
weixin_30650039的博客
05-16 273
只需要在窗体的创建时，添加如下代码 procedure TMainForm.FormCreate(Sender: TObject); begin SetWindowLong(handle, gwl_style, getwindowlong(handle, gwl_style) xor ws_caption); hide; show; end; ...
Delphi如何屏蔽标题栏关闭按钮
编程资料收集与共享交流
11-26 1381
 EnableMenuItem(GetSystemMenu(Handle, FALSE), SC_CLOSE,MF_BYCOMMAND or MF_GRAYED); 如果要把整个标题栏去掉，则在OnCreate中写：SetWindowLong(handle,GWL_STYLE,GetWindowLong(handle,GWL_STYLE) and not WS_CAPTION)
delphi中直接拖动窗体，不用点标题栏
LXM13579929299的博客
05-21 217
1.　　一般情况下，移动一个窗体需要将鼠标放置在标题栏上才能拖动窗体，为 什么非要使用标题栏呢？其实我们可以使用一个巧妙的方法来实现将鼠标放置 在窗体上按下就可拖动窗体，下面先看实现代码。在Form1的“Private”部分声明过程： 在private部分加入下列代码： 1procedurewmnchittest(varmsg:twmnchittest); 2message...
delphi窗体的标题栏闪烁
11-30
"delphi窗体的标题栏闪烁"就是一种常见的方法，通过让应用程序的窗口标题栏连续闪烁来提醒用户。以下是对这个主题的详细解释： 1. **标题栏闪烁原理**： Delphi中的窗口标题栏闪烁是通过操作系统提供的API函数实现...
Delphi 无边框窗口的实现
05-18
使用Delphi源码实现一个无边框窗口，把标题栏去掉了，同时也去掉了标题栏上的最大化、最小化和关闭按钮，测试发现，这个无标题栏无边框的窗体不能拖动，要是能拖动就更好了。 运行环境：Windows/Delphi7
Delphi窗口快速通道-标题栏显示按钮.rar
07-10
三个按钮的功能分别是“隐藏窗口”/“窗口大小最小化（只留标题栏）”/“窗口置顶”。这样你可以很方便的对任意窗口进行隐藏/置顶/最小化操作。 　程序的完成度还比较低，目前只能提供演示作用。 　窗口上有四个...
Delphi无标题栏窗体拖动的方法 源码例子.rar
07-10
在Delphi编程中，创建一个没有默认标题栏的窗体并实现自定义拖动和缩放功能是一项常见的需求，这可以使得应用程序具有更加个性化的外观和交互体验。本示例提供的"Delphi无标题栏窗体拖动的方法 源码例子.rar"正是...
Delphi美化窗口标题栏和右上角按钮..rar
04-27
Delphi美化窗口标题栏和右上角按钮..rar```
Delphi 制作窗口标题栏闪烁功能.rar
07-10
Delphi 制作窗口标题栏闪烁功能，使程序退出时任务栏中留下一个空格自动消失。可以使用Windows 应用程序编程接口（API）函数来使该窗口的标题栏实现闪烁。
通过句柄获取窗口名并隐藏窗口和任务栏图标
08-08
通过API函数穷举得到可视窗口的句柄,通过句柄获得对应窗口标题并显示在list中,在list中钩选相应项,则可隐藏窗口和窗口在任栏的图标.去掉对就项的钩则可使其恢复.程序主窗口也能隐藏,并且可通过热键ALT+F7将其唤出.并只允许程序只运行一个实例.
Delphi在标题栏中添加一个按钮.rar
07-10
首先，我们要了解Windows API在窗口标题栏中添加自定义控件的原理。在Windows操作系统中，标题栏是属于系统窗口的一部分，由操作系统管理。要在此处添加控件，我们需要使用API函数，如`CreateWindowEx`或`...
delphi显示隐藏任务栏.rar
09-05
在Delphi编程中，有时我们需要对Windows操作系统的某些特性进行控制，例如隐藏或显示任务栏。这个"delphi显示隐藏任务栏.rar"压缩包文件很可能包含了一个Delphi工程或者源代码示例，用于演示如何使用Delphi来实现这...
Delphi 不用标题栏移动窗体
weixin_30918415的博客
03-11 68
procedure TxxxxForm.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); const sc_DragMove: Integer = $F012; begin if ssCtrl in Shift then //判断“C...
绘制delphi窗体的标题栏
dkopg24406的专栏
09-02 689
绘制delphi窗体的标题栏 按照设计，Delphi窗体的“标题”属性是由Windows负责绘制，标题栏在系统菜单旁边。如果你不想改变窗体的标题属性又想在窗体的标题栏添加一些自己的内容，你需要处理一个特殊的Windows消息：WM_NCPAINT。当需要重绘它窗体框架时，一个WM_NCPAINT消息发送到窗口，。应用程序可以截获该消息，绘制自己的定制的窗口框架。注意，当窗体激活或停用时，...
delphi 标题栏相关操作
weixin_30600197的博客
12-09 131
1.隐藏窗体的标题栏在Delphi中隐藏窗体的标题栏，相信大家都会说是一个件十分容易的事情，只需要设置BorderStyle的属性为bsNone就可以了，不过这种设置方法不但去掉了窗体的标题栏，而且也去掉了窗体的3D边框，这样就显得不好看了，那么请大家试试下面的方法吧。procedure TForm1.FormCreate(Sender: TObject);beginsetwindowlong(f...
Delphi 开发不一样的窗体标题栏：TTitleBarPanel
sensor_WU 博客
08-02 1235
介绍Delphi的个性化标题栏的设定
delphi 标题栏字体
最新发布
08-12
在Delphi中，我们可以通过几种方式来修改标题栏的字体。 1. 使用API函数： 我们可以使用Windows API函数来修改标题栏的字体。首先，我们需要获取标题栏的句柄，然后使用SetWindowsFont函数来设置字体。例如： ```delphi var hwnd: HWND; fontHandle: HFONT; begin hwnd := GetWindow(Handle, GW_CHILD); fontHandle := CreateFont(12, 0, 0, 0, FW_BOLD, 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, DEFAULT_PITCH or FF_SWISS, 'Arial'); SendMessage(hwnd, WM_SETFONT, WPARAM(fontHandle), 1); end; ``` 在上面的例子中，我们使用了CreateFont函数创建了一个新的字体句柄，然后使用SendMessage函数发送消息给标题栏窗口，将字体句柄应用到它上面。 2. 修改窗口样式： 我们也可以通过修改窗口的样式来改变标题栏的字体。使用SetWindowLong函数来修改窗口样式，并使用WS_SYSMENU样式标记来指定标题栏的样式。例如： ```delphi var style: Longint; begin style := GetWindowLong(Handle, GWL_STYLE); SetWindowLong(Handle, GWL_STYLE, style or WS_SYSMENU); SetWindowPos(Handle, 0, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_FRAMECHANGED); end; ``` 上面的例子中，我们使用GetWindowLong函数获取窗口的样式，然后使用SetWindowLong函数将WS_SYSMENU样式标记添加到样式中。最后使用SetWindowPos函数刷新窗口。 3. 使用第三方组件： 除了上面的方法，我们还可以使用第三方的Delphi组件来修改标题栏的字体。许多组件库，如DevExpress、TMS、AlphaControls等，提供了修改标题栏字体的功能。我们可以在Delphi官方网站或其他Delphi开发社区中找到这些组件。 以上是三种修改Delphi标题栏字体的方法，可以根据需要选择适合的方法来实现。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值