Delphi关于非应用程序主窗口显示在任务栏的问题

来源:互联网 发布:nginx deny 编辑:程序博客网 时间:2024/05/16 14:41
 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 问题.