SetWindowPos如何设置参数，使效果和showmodal一样(20分)

yhl1118 · 2002-12-11

如题

zw84611 · 2002-12-11

SetWindowPos(MainForm.handle,HWND_TopMost,0,0,0,0,        SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE);

yhl1118 · 2002-12-11

不对啊，我试了一下，什么也没有出现

zw84611 · 2002-12-11

把它放在要Show的Form的OnCreate中，然后Show该Form，但这个只是让它在最前面而已， 和ShowModal还是有区别的，你为什么不直接用ShowModal？

yhl1118 · 2002-12-11

想做一个象netants那样的悬浮窗，如果用有一个窗口showmodal, 就不能拖动悬浮窗。 所以，我想可能要用这个函数。可是要如何保证用了这个函数的窗口能在最上面，象showmodal， 但又能拖动悬浮窗口呢？

zw84611 · 2002-12-11

这和ShowModal是不一样的，ShowModal之后，主窗体就不可用了。 你要做的其实是“总在最前”， 在FormCreate中加一句 SetWindowPos(handle,HWND_TopMost,0,0,0,0,        SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE); 就可以了。 拖动无标题窗体： procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;   Shift: TShiftState; X, Y: Integer); begin  ReleaseCapture;  SendMessage(handle,WM_SysCommand,$F012,0); end;

yhl1118 · 2002-12-11

zw84611:谢谢你的帮助，可是我在一个窗口1的oncreate增加了 SetWindowPos(handle,HWND_TopMost,0,0,0,0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE); 窗口1确实在最上面，但我还是可以操作其他窗口，而我希望在窗口1打开的时候，不能 操作其他的窗口，除了悬浮窗。 我要如何做呢，如果你不理解我的要求，请运行netants的增加窗口，你看看就知道。

Another_eYes · 2002-12-12

两种方式： 1.悬浮窗用另一个进程建立。 2.手工实现ShowModal的方式：   将所有其它窗口(除了悬浮窗和你希望showmodal的窗口1之外)全部disable，然后用show方法显示窗口1. 在窗口1退出时再enable其它窗口。

yhl1118 · 2002-12-12

to Another_eYes: >悬浮窗用另一个进程建立。 能否说的具体点，要如何建立。 >手工实现ShowModal的方式：   将所有其它窗口(除了悬浮窗和你希望showmodal的窗口1之外)全部disable，然后用show方法显示窗口1. 在窗口1退出时再enable其它窗口 netants好象不是这么做的

yhl1118 · 2002-12-12

怎么问题总是解决一半：（

www · 2002-12-12

我解决了. 在unit1中这样写 ....... unit Unit1; var   Form1: TForm1;   WindowList

ointer;   //注意这句 implementation uses Unit2; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin   windowlist:=DisableTaskWindows(form2.Handle);   form2.show; end; end. 在unit2中这样写 ...... procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin   EnableTaskWindows(WindowList); end; 效果同模态窗口一样.

yhl1118 · 2002-12-13

to www: 可是我同样不能移动其他的窗口了，看来我没有将问题说清楚。 其实你们运行一下netants就知道，当打开他的增加下载的窗口时，他的悬浮窗口是可以移动的 而其他的窗口均无法操作，只有等增加的窗口关闭后才可以，所以他的增加窗口象一个showmodal， 但我想应该不是win.showmodal这样写的，不知道他是如何控制的

jsxjd · 2002-12-13

设置 FormStyle 属性为 fsStayOnTop

yhl1118 · 2002-12-13

这个问题不是这么简单的，这句话在论坛中已经太多了，谁实现过，给点建设性的建议

jsxjd · 2002-12-13

肯定是 showmodal 一样的效果，不管它是不是用这条语句！！！！！！

yhl1118 · 2002-12-13

to jsxjd: 你是说netants的增加的窗口是showmodal的吗，可是他的悬浮窗在打开增加窗口时为什么可以移动呢

jsxjd · 2002-12-13

modal 窗口本来都是可以移动的啊.

yhl1118 · 2002-12-13

拜托老兄，看看清楚，我是问netants中打开"增加"的窗口时，悬浮窗口还是可以移动， 而不是"增加"窗口可以移动，如果“增加”窗口是showmodal打开的，悬浮窗口应该是无法移动的。 谁还有建议的，来说说

jsxjd · 2002-12-13

showmodal 时，“悬浮窗口应该是无法移动的”这句本身是错误的！！！！！！ 只要悬浮窗口的父窗口不是本应用程序窗口，就和这个 modal 无关。 应用程序弹出悬浮窗口时可以设置它的父窗口不为本程序主窗口。 另外，modal 窗口有多种类型，有系统级的，程序级的。 还有什么？

yhl1118 · 2002-12-13

我希望能有点代码来看看如何实现。

SetWindowPos如何设置参数，使效果和showmodal一样(20分)

yhl1118

Unregistered / Unconfirmed

zw84611

Unregistered / Unconfirmed

yhl1118

Unregistered / Unconfirmed

zw84611

Unregistered / Unconfirmed

yhl1118

Unregistered / Unconfirmed

zw84611

Unregistered / Unconfirmed

yhl1118

Unregistered / Unconfirmed

Another_eYes

Unregistered / Unconfirmed

yhl1118

Unregistered / Unconfirmed

yhl1118

Unregistered / Unconfirmed

www

Unregistered / Unconfirmed

yhl1118

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

yhl1118

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

yhl1118

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

yhl1118

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

yhl1118

Unregistered / Unconfirmed

Similar threads