Delphi中,除了应用程序主窗口会显示在任务栏上,其它窗口默认都不会显示在任务栏.

Delphi中,除了应用程序主窗口会显示在任务栏上,其它窗口默认都不会显示在任务栏. 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 问题.

Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=2009731
另选:

在你的FORM中重载一个函数就行
protected
procedure CreateParams(var Params: TCreateParams); override;
public

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);