回复于： 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