一个对我深奥而对你却简单的问题：如何让一个窗体始终在最前面(50分)

E

emoth

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #1

兄弟我编了一个程序，计划如下：程序最小化到系统栏，当Timer到一定时间后跳出一个对话框
，提示我该干什么什么了。不过兄弟不知道应该如何才能让弹出的对话框始终都在桌面的最上
面呢（不能切换，必须响应对话框，不管你用资源管理器还是其它什么程序，我的对话框始终都
在最上面）。
如果用Application.msgbox函数加上MB_SYSTEMMODAL参数到是能办到，但是如果我自定义一个
对话框窗体，用ShowModal的方法如不能做到（注意：我的程序是主窗体，弹出的对话框窗体是
自定义的）
请教如何解决？

 

W

wlmmlw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #2

帮你UP一下。

 

S

ssss__0002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #3

用API函数

 

飘

飘摇客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #4

使用SetWindowPos函数试试看。

 

P

p96114

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #5

最近我写一个程序
有一个现象和你的相符合.
只是设窗口的Style为ontop即可.
但我的情况是该窗口不是应用程序的主窗口

 

E

emoth

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #6

SetWindowPos函数我没有用过，能否具体一些？

 

G

goodflag

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #7

函数原型：BOOL SetWindowPos（HWN hWnd，HWND
hWndlnsertAfter,int X，int Y,int cx，int cy,UNIT．Flags）；
hwnd:窗口句柄,
hWndlnsertAfter:在z序中的位于被置位的窗口前的窗口句柄。该参数必须为一个窗口句柄，或下列值之一：

HWND_BOTTOM：将窗口置于Z序的底部。如果参数hWnd标识了一个顶层窗口，则窗口失去顶级位置，并且被置在其他窗口的底部。

HWND_DOTTOPMOST：将窗口置于所有非顶层窗口之上（即在所有顶层窗口之后）。如果窗口己经是非顶层窗口则该标志不起作用。

HWND_TOP:将窗口置于Z序的顶部。

HWND_TOPMOST:将窗口置于所有非顶层窗口之上。即使窗口未被激活窗口也将保持顶级位置。
x：以客户坐标指定窗口新位置的左边界。

Y：以客户坐标指定窗口新位置的顶边界。

cx:以像素指定窗口的新的宽度。

cy：以像素指定窗口的新的高度。

uFlags:窗口尺寸和定位的标志

 

飘

飘摇客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #8

^_^，给你一段代码，你看看吧。
方法一：
先setforegroundwindow(HWND)；然后再setwindowpos(form2.Handle,HWND_TOPmost,10,10,200,300,SWP_SHOWWINDOW );
////////////////////////

方法二：
关键技术是重载Form的CreateParams方法
{form2 code}
public
procedure CreateParams(Var Params:TCreateParams);override;

uses unit1;
procedure tform2.CreateParams(var Params:TCreateParams);
begin
inherited;
With Params do
begin
wndParent:=GetDesktopwindow;
ExStyle:=ExStyle or WS_EX_TOPMOST;
end;
end;

procedure TForm2.FormClose(Sender :TObject;var Action:TCloseAction);
begin
Form1.show;
ShowWindow(Application.handle,sw_show);
end;


{Form1}
uses unit2;
procedure TForm1.Button1Click(Sender:TObject);
begin
with tform2.create(self) do show;
hide; {Hide Form1}
ShowWindow(Application.handle,sw_hide); {Hide Application}
end;

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-26

• #9

不响应一直在顶层：
windows.messagebox(0,'aa','bbb',MB_SYSTEMMODAL);
/////////////

 

大

大梦

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #10

UP

 

S

stvsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #11

"飘摇客"兄的做法是正确的,如果不是主窗口,关键在于飘摇客这个继承函数,
procedure CreateParams(var Params:TCreateParams);
begin
// 执行父类的程序
inherited;
// -----关键部分---
With Params do
begin
// 将当前窗口的父窗口设置为桌面,这样窗口就能显示出来
wndParent:=GetDesktopwindow;
// 将窗口类型设置为始终在最顶层,别的窗口就覆盖不了
ExStyle:=ExStyle or WS_EX_TOPMOST;
end;
end;

 

A

Aiirii

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #12

在那个定时器中加:XXXForm.BringToFront

 

E

emoth

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #13

俺接受答案了