如何使程序窗口始终位于最上层(50分)

L

linhl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-25

• #1

我想使自己的程序运行后，窗口始终位于其它窗口之上，不
被新运行窗口所遮盖，如何实现？

 

H

houanl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-25

• #2

窗口的属性应该设为.ShowModal

 

P

pengjinlongex

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-25

• #3

procedure AlwaysOnTop(Form: TForm; OnTop: Boolean);
begin
if OnTop then
SetWindowPos(Form.Handle, HWND_TOPMOST, 0, 0, 0, 0,
SWP_NOMOVE or SWP_NOSIZE)
else
SetWindowPos(Form.Handle, HWND_NOTOPMOST, 0, 0, 0, 0,
SWP_NOMOVE or SWP_NOSIZE)
end;
窗体为normal型

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-25

• #4

不知道再运行一个 topmost 会不会覆盖

 

人

人在昆明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-25

• #5

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;

 

J

jx_l

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-25

• #6

up

 

L

linhl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #7

houanl的方法无效，另外我后来也找到一个更简单的方法，
将窗口Formstly属性设置为fsStayOnTop就行了，感想各位热情相助！