如何让form显示的时候总是在最前面

回复于： 2004-09-18 09:29:21

FormStyle:=fsStayOnTop

 

回复于： 2004-09-19 16:44:55

1.截住wm_windowposchanging消息。修改为:

procedure wmwinposchange(Var message:tmessage);

var

p:windowpos

begin

p:=windowpos(pointer(message.lparam)^)

if p.hwndafter...=hwnd_topmost then

inherited;

end;

2. in form.create event write setwindowpos use hwnd_topmost param