如何使窗口在最前面，紧急！！！！(150分)

xyf2001721 · 2001-11-08

[red][/red]1：如何使窗口随时在最前面，而不只是创建时？ 2：如何使主窗口最小化时，从窗口不最小化？

卷起千堆雪tyn · 2001-11-08

>1：   Form.FormStyle :=fsStayOnTop;

bbs_delphi · 2001-11-08

这个问题我问过了，你浪费了150块。 就是那句 Form.FormStyle :=fsStayOnTop;

microyzy · 2001-11-08

api:setwindowpos

zhangkan · 2001-11-08

1.用Form.FormStyle :=fsStayOnTop;确保窗口在最上面 2.在从窗口中如下声明,那么主窗口最小化时不影响从窗口. procedure CreateParams(var Params: TCreateParams);Override; procedure TFrmShow.CreateParams(var Params: TCreateParams); begin   inherited;   Params.WndParent := 0; end;

xyf2001721 · 2001-11-08

to卷起千堆雪tyn     此方法只是对同一个程序的窗口适用，对别的就不行了，有CreatePramas只能是创建时， 第二个问题呢？

peter_peng1980 · 2001-11-08

Form.FormStyle :=fsStayOnTop;

YB_unique · 2001-11-08

1 procedure SetWindowTopMost(WindowName:TForm; DoTopMost:Boolean); begin   if DoTopMost then     SetWindowPos(WindowName.Handle,Hwnd_Topmost,0,0,0,0,(SWP_NOMOVE Or SWP_NOSIZE))   else     SetWindowPos(WindowName.Handle,Hwnd_Notopmost,0,0,0,0,(SWP_NOMOVE Or SWP_NOSIZE)); end; 2   在主窗体最小化事件中加入：  Application.OnDeactivate:=SetactiveWindow(Handle);  其中Handle为子窗体对应句柄。

WilliamGui · 2001-11-08

fbf

davidyuan · 2001-11-08

AHM内有一个控件，可以控制窗口内所有的东西。

freecom · 2001-11-08

BringWindowToTop(HWND hAppWnd) SetWindowPos(AppWnd,HWND_TOP,0,0,0,0,SWP_NOSIZE)

xyf2001721 · 2001-11-10

多人接受答案了。

如何使窗口在最前面，紧急！！！！(150分)

xyf2001721

Unregistered / Unconfirmed

卷起千堆雪tyn

Unregistered / Unconfirmed

bbs_delphi

Unregistered / Unconfirmed

microyzy

Unregistered / Unconfirmed

zhangkan

Unregistered / Unconfirmed

xyf2001721

Unregistered / Unconfirmed

peter_peng1980

Unregistered / Unconfirmed

YB_unique

Unregistered / Unconfirmed

WilliamGui

Unregistered / Unconfirmed

davidyuan

Unregistered / Unconfirmed

freecom

Unregistered / Unconfirmed

xyf2001721

Unregistered / Unconfirmed

Similar threads