怎么让我的窗体一直在最上层？？？？？就想QQ那样(5分)

S

sheepcy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-17

• #1

怎么让我的窗体一直在最上层？？？？？就想QQ那样

 

L

laohe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-17

• #2

Formstyle=fsStayOnTop
在窗体的Form属性中设置

 

B

bamboowzm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-17

• #3

SetWindowPos(Handle,HWND_TOPMOST,
l,t,w,h,
SWP_SHOWWINDOW);
搞定！

 

S

sheepcy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-17

• #4

to:bamboowzm
这段代码在写哪里？（不好意思）[]

 

V

vine

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-17

• #5

Public
procedure Createparams(Var Params:TCreateParams);override;
...
procedure TFormDrop.Createparams(var Params:TCreateParams);
begin
Inherited CreateParams(Params);
With Paramsdo
begin
EXStyle:=ExStyle or WS_EX_TOPMOST OR WS_EX_ACCEPTFILES or WS_DLGFRAME
wndParnet:=GetDesktopWindow;
end;
end;

 

G

GoDelphi1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-17

• #6

既然知道了怎样总在最前，那我就告诉你怎样取消总在最前，我知道你还会问的。
SetWindowPos (Handle,HWND_NOTOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE);
这段代码添加在任意你需要的事件中。

 

S

sheepcy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-18

• #7

多人接受答案了。