Delphi关于非应用程序主窗口显示在任务栏的问题 -优快云博客

本文介绍了在Delphi中如何让除主窗口外的其他窗口显示在任务栏的方法。通过重载CreateParams方法或使用SetWindowLong API函数，并解决了由此带来的ShowHint功能问题。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Delphi中,除了应用程序主窗口会显示在任务栏上,其它窗口默认都不会显示在任务栏.
没有MS开发环境中的ShowInTaskBar属性.

解决办法:
1.重载窗口 CreateParams 方法以实现,ShowInTaskBar效果
  procedure CreateParams(var Params: TCreateParams);override;
  procedure Tform1.CreateParams(var Params:TCreateParams);
  begin
    inherited CreateParams(Params);
    Params.WndParent := GetDesktopWindow;
  end;

  能实现显示在任务栏,但是,会有个令人不快的麻烦,如果你在这个窗口上
  启用 ShowHint 功能(类似ShowToolTip),并设置相关控件的 Hint,则会在
  显示此提示内容时,  窗口会自动失去焦点,置于主窗口之后,(像是被 SentToBack 了)
  莫名其妙,花了我半个小时,将两个窗口对比,才发现是,重载窗口 CreateParams
   造成的.这才想到用API来作,(不熟悉Delphi,也不知道还有什么方法)

2.使用API函数 SetWindowLong 实现;
  SetWindowLong在delphi Windows 单元已经作了申明,可直接使用;
  procedure Tform1.FormCreate(Sender: TObject);
  begin
    SetWindowLong(self.Handle, GWL_EXSTYLE, WS_EX_APPWINDOW);
  end;

  终于不再有重载窗口 CreateParams 方法实现后的 ShowHint 问题.