如何让程序的子窗体始终位于所有其它进程的最前端?

[zyb]

[kxy]

SetWindowPos(handle,HWND_TOPMOST,0,0,0,0,
SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE);

[limodou]

有时需要一个窗体总在另一个窗体的上面，但不是最上面，如何实现呢？
需要重写窗体的CreateParams过程
type
TForm2 = class(TForm)
protected
procedure CreateParams( var Params: TCreateParams );override;

//...
end;
implementation


uses Unit1; //这个别忘了

{$R *.DFM}
procedure TForm2.CreateParams( var Params: TCreateParams );
begin
inherited CreateParams( Params );
with Params do
begin
Style := Style or ws_Overlapped;
WndParent := Form1.Handle; //父窗体为form1
end;
end;
不知这个与你的要求是否一致？

[渤海海峡]

:
form1.FormStyle:= fsStayOnTop;

[光明山人]

你的意思是不是即使Application处理非活动状态时，该子窗体依然在最前端？
在你的子窗体的protected中加入这个方法：
procedure CreateParams(var Params: TCreateParams); override;

该方法这样写：
procedure TForm3.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.ExStyle := Params.ExStyle or WS_EX_TOPMOST or WS_EX_TOOLWINDOW;
Params.WndParent := 0; // 这是必须的，否则当App变为后台时会将该窗体设置为不TopMost
end;

注意：如果你不加上WS_EX_TOOLWINDOW或没将BorderStyle设置为带有ToolWindow的属性，则在任务条上将出现该窗体的图标按钮。
看看我这个行不行？

才10分呀，太少了。