有关messagedlg使用(50分)

W

wzpok

Unregistered / Unconfirmed
GUEST, unregistred user!
我用messagedlg做一个对话框 想让个对话框在所有窗口前面不被覆盖不知如何实现!
 
将对话框的Top属性置为True即可。
 
Form1.BorderStyle := bsDialog
Form1.FormStyle := fsStayOnTop
 
要达到你说的这种效果,即非模态对话框,我记得方法是:
在程序中加入下列语句:
setwindowword(hand,GWW_HWNDPARENT,hand);
(原文见<电脑商情报>)
 
用messagedlg做不可能,除非你自己建一个form做一个对话框
 
Same ideal to Sun.
You can use SeaSky's method.
Good luck
 
???
请继续讨论或结束此问题。
 
var WindowList: Pointer;
让窗口无效,效果同模态窗口一样
WindowList:= DisableTaskWindows(frm.Handle);

让窗口有效。
EnableTaskWindows(WindowList);
 
顶部