5,727
社区成员
发帖
与我相关
我的任务
分享
我记得Delphi的Application是一个0像素的窗口
参考:https://learn.microsoft.com/en-us/windows/win32/winmsg/extended-window-styles
WS_EX_APPWINDOW Forces a top-level window onto the taskbar when the window is visible.
0x00040000L
有一点关系,VCL程序中所有的窗体都是Application内部建立的一个隐藏窗体的子窗体,所以用户程序建立的第一个窗体并非真正的主窗体(虽然Application.MainForm指向它)。
要让子窗体最小化到任务栏也很简单,只要建立的时候:
SetWindowLongPtr(Form2.Handle, GWL_EXSTYLE,
GetWindowLongPtr(Form2.Handle, GWL_EXSTYLE) or WS_EX_APPWINDOW);
即可。