使子窗体也能出现在任务栏上

最新推荐文章于 2025-07-18 12:56:54 发布
最新推荐文章于 2025-07-18 12:56:54 发布
阅读量744 收藏
点赞数
CC 4.0 BY-SA版权
分类专栏： Delphi 文章标签： 任务 api
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/jinzhili/article/details/580513
本文介绍了一种在Form.Create中使用SetWindowLong API来优化窗口显示的方法。通过调整窗口样式，可以实现如置顶显示、最小化恢复等功能。

procedure TfmBase.FormCreate(Sender: TObject);
begin
  SetWindowLong(Handle, GWL_EXSTYLE,
    GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_APPWINDOW);
end;

  if not Assigned(fmckxx) then
    fmckxx := Tfmckxx.Create(self,AfmParam);
  fmckxx.Show;
  if fmckxx.WindowState =  wsMinimized then
    showwindow(fmckxx.Handle,SW_RESTORE)
  else
    fmckxx.BringToFront;

关键是在Form.create中加了SetWindowLong这个API就可以达到效果。

 

delphi_悬浮窗口
01-19
function SetLayeredWindowAttributes(hwnd: HWND; crKey: Longint; bAlpha: byte; dwFlags: longint): longint; stdcall; external user32; //函数声明 implementation {$R *.dfm} procedure TForm1.btnCancelClick(Sender: TObject); begin Form1.Close; Application.Terminate; end; procedure TForm1.btnOkClick(Sender: TObject); begin if Edit1.Text = '' then begin ShowMessage('透明度不能为空！'); Edit1.SetFocus; edit1.SelectAll; Exit; end; //设置透明度 SetTMD(StrToInt(Edit1.Text)); end;
Delphi 悬浮窗
01-08
Delphi做的悬浮窗，代码简单，充分利用Delhpi7特性，无标题栏，可拖动，可透明度设置。
delphi设计浮动窗口
男神的专栏
06-03 949
用Spy & Capture查看一下就不难发现，这些面板窗体的Parent Window都是Photoshop的主窗体(以Photoshop CS为例，主窗体的Handle是001906D8，所有面板的Parent Window指向的就是001906D8），而一般我们创建的窗体的Parent是为None的。上面的代码就可以显示一个与Form1同处激活状态的Form2，再对Form2的BorderStyle与BorderIcons属性作一些必要的选择，就可以实现更加完美的效果！
Delphi7中实现悬浮窗口(半透明+拖拽)的实战课程
最新发布
weixin_42146230的博客
07-18 679
悬浮窗口是始终位于其他窗口之上的独立界面元素。它允许用户在保持主应用界面不变的情况下，获得额外的信息或进行特定的操作。Delphi是一种由Borland公司开发的集成开发环境，主要采用Object Pascal语言进行软件开发。它从早期的Turbo Pascal和Borland Pascal进化而来，具有一套完整的应用程序框架，名为Visual Component Library（VCL），用于简化图形界面应用程序的开发。除了使用标准的VCL组件，Delphi还允许开发者创建自定义组件。
子窗体显示在任务栏，且子窗体中又有弹窗
fghydx的专栏
01-21 996
子窗体显示在任务栏时， procedure Tfrm_SendSmartMsg.CreateParams(var Params: TCreateParams); begin   inherited;   Params.WndParent := 0; end; 这时子窗体会在任务栏有单独的按钮，如果这时这个子窗体上又要加一个弹出窗体，如果是普通窗体会把整个应用程序激活，而导致这个子窗体跑
Delphi窗体浮动小问题
任游.Abraham.Wei.rEny0u.pRince
11-20 939
在一个项目中发现这样一个问题，在Delphi父窗体弹出一个子窗体时，切换桌面窗体的显示.却发现这个子窗体没有跟着父窗体一起被切换窗体隐藏,而是继续浮动在桌面顶端.后来还是发现了问题所在,子窗体的FormStyle是设置成了fsNormal,但是在代码里面,弹出此子窗体时,却设置成了fsStayOnTop.所以就会出现以上的问题.
Delphi7隐藏主窗体同时不出现在任务栏
08-14
在Delphi7编程环境中，有时候开发者可能需要实现一个应用程序，其中主窗体在启动后既不显示在屏幕上，也不出现在Windows任务栏上。这通常是为了创建一个后台运行的服务或者一个控制台程序的辅助工具。本篇文章将详细...
vb6如何在任务栏中显MDI子窗体的标题(测试)
09-10
默认情况下，MDI子窗体在任务栏上并不会显示它们自己的标题，而是显示其父MDI应用程序的标题。然而，有时开发者希望每个MDI子窗体在任务栏上都有一个独立的图标和标题，以便用户可以更容易地管理和切换不同窗口。要...
Delphi实现子窗体任务栏按钮创建教程
- **任务栏**：是操作系统中用于显示当前运行程序和进程的区域，用户可以通过点击任务栏上的按钮来切换不同的程序或执行特定操作（如最小化、关闭程序等）。在Windows操作系统中，任务栏是最为常见的用户界面元素。 ...
VB6实现MDI子窗体任务栏标题显示教程
通过这种方式，可以使得子窗体不再显示在MDI父窗体的客户区域，而是作为一个独立的窗口来显示，这样就能在任务栏中显示子窗体的标题。 首先，我们需要了解几个重要的Windows API函数： 1. SetParent - 这个函数可以...
使基于对话框的程序不在任务栏中显示
09-14
使基于对话框的程序不在任务栏中显示 使基于对话框的程序不在任务栏中显示 使基于对话框的程序不在任务栏中显示 使基于对话框的程序不在任务栏中显示 使基于对话框的程序不在任务栏中显示 使基于对话框的程序不在...
用Delphi 实现类似迅雷、QQ旋风的半透明浮动窗口
12-22
用Delphi 实现类似迅雷、QQ旋风的半透明浮动窗口
delphi 悬浮窗体
06-29
delphi7下编译，简单的悬浮窗体demo，可置于任何窗体前，透明背景
Delphi 悬浮窗口、浮动窗口的实现
weixin_34018202的博客
11-09 2076
源：Delphi 悬浮窗口、浮动窗口的实现   浮动窗体的实现 http://blog.tianya.cn/blogger/post_show.asp?BlogID=68097&PostID=806089需要一个这样的窗体:a:没有标题栏; b:可以改变大小; c:不在任务栏上显示图标; d:如果不是主窗体,它的最小化不受主窗体的限制; e:在最顶端显示处理:a:不在任务栏出现的,只要...
delphi(XE2)实现图片异形窗体，支持摆放控件
yueyun889的专栏
11-22 1595
网上有较多使用UpdateLayeredWindow函数实现美化的图片异形窗体的代码，一般使用此场景时，对软件界面要求较高。但是实现了图片窗体后，在窗体中摆放不了其他控件，导致这个功能很鸡肋。为解决此问题，本博文中的案例使用两个窗体搭配使用，图片窗口作为背景窗体，放置控件的窗口作为功能性窗体，功能性窗口全透明展示，可实现我们预设的目标。
Delphi 让子窗体显示在任务栏上的几种方法
kevinzhaoyp
05-05 2749
重载 CreateParams 方法
Delphi经典实例8------自动隐藏窗体
【昆山人在上海】
05-25 844
1.利用定时器如下图所示建立工程：代码如下：unit mainunit;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = clas
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值