DELPHI中的窗口管理

最新推荐文章于 2023-04-09 15:37:31 发布

金卯刀

最新推荐文章于 2023-04-09 15:37:31 发布

阅读量2.4k

点赞数

分类专栏： delphi基础相关文章标签： delphi button application 任务 div exe

本文链接：https://blog.csdn.net/avan_lau/article/details/5187017

版权

本文探讨了DELPHI程序中窗口如何在任务栏显示为button，深入TApplication和TCustomForm的创建过程，解析了窗口特性及父窗口对任务栏按钮的影响，详细解释了窗口最小化和最大化的行为机制。

摘要由CSDN通过智能技术生成

先思考一个问题，为什么每个delphi程序(泛指一个exe)都会在任务栏上有一个类似button的东西呢？

这是因为有了窗口才会有这个东东出现。那什么样的窗口可以会在任务栏出现button东东呢？让我们进入delphi源代码吧！

查TApplication代码实现，可以发现会执行createhandle：

procedure TApplication.CreateHandle;
var
TempClass: TWndClass;
SysMenu: HMenu;
begin
if not FHandleCreated and not IsConsole then
begin
    FObjectInstance := Classes.MakeObjectInstance(WndProc);
    if not GetClassInfo(HInstance, WindowClass.lpszClassName, TempClass) then
    begin
      WindowClass.hInstance := HInstance;//指明窗口的应用程序实例句柄
      if Windows.RegisterClass(WindowClass) = 0 then
        raise EOutOfResources.Create(SWindowClass);
    end;
    FHandle := CreateWindow(WindowClass.lpszClassName, PChar(FTitle),
      WS_POPUP or WS_CAPTION or WS_CLIPSIBLINGS or WS_SYSMENU
      or WS_MINIMIZEBOX,
      GetSystemMetrics(SM_CXSCREEN) div 2,//