如何让显示的窗口在桌面的最上面，而不被其他窗口遮住那？

[wangzn1979]

如何让显示的窗口在桌面的最上面，而不被其他窗口遮住那？

[netlib]

form1.formstyle:=fsStayOnTop;

[shadows]

Public

procedure Createparams(Var Params:TCreateParams);override;

...



procedure TFormDrop.Createparams(var Params:TCreateParams);

begin

Inherited CreateParams(Params);

With Params do

begin

EXStyle:=ExStyle or WS_EX_TOPMOST OR WS_EX_ACCEPTFILES or WS_DLGFRAME

wndParnet:=GetDesktopWindow; //关键一行，用SetParent都不行！！

end;

end;

[surfguy]

bringtofront

[taxi]

procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowPos(Application.Handle, HWND_TOPMOST, 0, 0, 0, 0,
SWP_NOMOVE or SWP_NOSIZE);
end;

[surfguy]

netlib(河外孤星)的是对的。

[lyhold]

在最上面
form1.formstyle:=fsStayOnTop;


不让窗体关闭和移动！！！
private
{ Private declarations }
procedure WMSysCommand(var Msg:TWMSysCommand);message WM_syscommand;


procedure TMain.WMSysCommand(var Msg:TWMSysCommand);
begin
if Msg.CmdType=SC_close then
begin
end
else
if msg.CmdType =SC_MOVE then
begin
end
else
if msg.cmdtype=sc_restore then
begin
end
else
inherited;
end;

[dreamfan]

form1.formstyle:=fsStayOnTop;

[Billy_Chen28]

你要显示的窗体.formstyle:=fsStayOnTop;