findwindow 防止窗体 重复打开(70分)

S

sun100

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-28

• #1

我在主菜单的按钮 中加入
handle:THandle;
handle:=findwindow('Tczkzl','储值卡资料管理');
if handle=0 then
czkzl:=Tczkzl.Create(application)
else
setforegroundwindow(handle);
为什么 储值卡资料管理' 这个子窗体 还是能重复代开，
是不是findwindow 只能找到顶级窗体，找不到子窗体呢，如果是 使用什么函数找子窗体呢

 

F

foxphone2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-28

• #2

handle:=findwindow('Tczkzl','储值卡资料管理');
这里有问题
findwindow有两个参数
HWND FindWindow(
LPCTSTR lpClassName, // pointer to class name
LPCTSTR lpWindowName // pointer to window name
);
所以你试试
handle:=findwindow('Tczkzl', nil);

 

S

sun100

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-28

• #3

用handle:=findwindow('Tczkzl', nil); 也是不能控制 不重复

 

S

systermman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-28

• #4

直接判斷某個窗體是否為空不是可以
if not assigned(Form) then
顯示窗體
else
不顯示窗體

 

M

Mzh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-28

• #5

直接在打开哪个窗口前先FreeAndNil一次窗口,我是这样的`~OK的。

 

D

delphi8511

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-28

• #6

是啊，下次打开的时候，先关闭：
if handle <> 0 then
SendMessage(handle, WM_CLOSE, 0, 0)
else ...

 

S

sun100

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-28

• #7

for i:=0 to mainform.MDIChildCount-1 do
if mainform.MDIChildren.Name='czkzl' then
begin
czkzl.BringToFront;
exit;
end;