FindWindow函数没有正确执行,请各位指点一下。
我想通过 Application.CreateForm在运行时创建窗体,代码如下:
procedure TMainForm.CtnUnlockExecute(Sender: TObject);
begin
screen.Cursor:=crhourglass;
try
if FindWindow('TUnlockCtnForm','UnlockCtnForm')<>0 then
UnlockCtnForm.Show
else
begin
Application.CreateForm(TUnlockCtnForm,UnlockCtnForm);
UnlockCtnForm.Show;
end;
finally
screen.Cursor:=crdefault;
end;
end;
问题1:当我点击菜单创建了一个窗体后,再次点击菜单,竟然还能
创建第二个相同的窗体,也就是说FindWindow函数没有执行,各位
能否解释一下。
问题2:除了Findwindow函数外,有没有其他函数判断窗体(包括
被hide的窗体)是否已经存在?
谢谢!