T
txyx
Unregistered / Unconfirmed
GUEST, unregistred user!
求救
您正在使用一款已经过时的浏览器！部分功能不能正常使用。
请尝试升级或使用 其他浏览器。
请尝试升级或使用 其他浏览器。
P
pluto_l
Unregistered / Unconfirmed
GUEST, unregistred user!
你可以设一个变量，记录当前打开的窗口。
T
txyx
Unregistered / Unconfirmed
GUEST, unregistred user!
我记得有这样一个系统函数吧，可以控制打开的窗口数目吧！
田
田伯光
Unregistered / Unconfirmed
GUEST, unregistred user!
if CheckForm.Visible then
else
else
W
wyismail
Unregistered / Unconfirmed
GUEST, unregistred user!
HWND FindWindow(
LPCTSTR lpClassName, // pointer to class name
LPCTSTR lpWindowName // pointer to window name
);
就用这个API可以判断
LPCTSTR lpClassName, // pointer to class name
LPCTSTR lpWindowName // pointer to window name
);
就用这个API可以判断
Z
zhliangming
Unregistered / Unconfirmed
GUEST, unregistred user!
用一个全局的窗口变量。
N
Nizvoo
Unregistered / Unconfirmed
GUEST, unregistred user!
if not Assigned(窗体名称) then
begin
创建;
显示;
end;
begin
创建;
显示;
end;
T
tan_jian
Unregistered / Unconfirmed
GUEST, unregistred user!
IsWindowVisible(xx.handle) and iswindow
P
pcc_mmz1
Unregistered / Unconfirmed
GUEST, unregistred user!
用Assigned函数，函数的参数是一个 Tform类或其派生类的变量（指针），
或者说是窗体类实例名。
T
txyx
Unregistered / Unconfirmed
GUEST, unregistred user!
举例：有一个程序通过api打开计算器，怎么防止它打开多个？？
if not assigned(?????) then
winexec('c:/windows/calc.exe',sw_normal);
if not assigned(?????) then
winexec('c:/windows/calc.exe',sw_normal);
P
pcc_mmz1
Unregistered / Unconfirmed
GUEST, unregistred user!
如果是这样的话，你这里的窗体属于进程外了。不在一个地址空间了。
你可以这样去做。
在打开该calc.exe之前
首先，调用findwindow，找到该窗体，然后发送一个消息给它,
消息为wm_close。
然后，winexec('c:/windows/calc.exe',sw_normal);
这样就能保证只打开了一个calc.exe程序。
Y
yzhshi
Unregistered / Unconfirmed
GUEST, unregistred user!
看你的需求，想到几点：
1、判断窗体Caption或者文件名等也许可能。但是很多的时候是事后诸葛亮。因为必须打开窗体才有Caption
2、找到当前可执行文件是否在系统中已经运行。这个也许是正路，近两天有一个帖子在讨论如何获得系统的当前运行的可执行文件的名称，也许对你有用。
但是这样又存在问题，如果我手工运行了一个计算器，是否计算在内？如果是，可以，不是的话，你设置一个全局变量就可以了。
1、判断窗体Caption或者文件名等也许可能。但是很多的时候是事后诸葛亮。因为必须打开窗体才有Caption
2、找到当前可执行文件是否在系统中已经运行。这个也许是正路，近两天有一个帖子在讨论如何获得系统的当前运行的可执行文件的名称，也许对你有用。
但是这样又存在问题，如果我手工运行了一个计算器，是否计算在内？如果是，可以，不是的话，你设置一个全局变量就可以了。
K
kongklj
Unregistered / Unconfirmed
GUEST, unregistred user!
begin
if not Assigned(SomeForm) then
begin
Application.CreateForm(TSomeForm:SomeForm);
try
SomeForm.ShowModal;
finally
SomeForm.Free;
SomeForm :=nil
end;
end;
else
SomeForm.ShowModal;
end;
OnDestroy(0;
begin
SomeForm :=nil;
end;
if not Assigned(SomeForm) then
begin
Application.CreateForm(TSomeForm:SomeForm);
try
SomeForm.ShowModal;
finally
SomeForm.Free;
SomeForm :=nil
end;
end;
else
SomeForm.ShowModal;
end;
OnDestroy(0;
begin
SomeForm :=nil;
end;
M
mckz
Unregistered / Unconfirmed
GUEST, unregistred user!
findwindow 或者 用那个 互斥单元原理
L
LanzeServer
Unregistered / Unconfirmed
GUEST, unregistred user!
可以试一下ActiveMDIChild
斗
斗士
Unregistered / Unconfirmed
GUEST, unregistred user!
Function OpenMDIForm(FormName:String):Boolean;
var
i:integer;
ShowF:boolean;
begin
ShowF:=False;
if MainForm.MDIChildCount>0 then
begin
for i:=0 to MainForm.MDIChildCount-1do
if MainForm.MDIChildren.Name=FormName then
begin
MainForm.MDIChildren.Show;
ShowF:=True;
break;
end
else
ShowF:=False;
end else
ShowF:=False;
Result:=ShowF;
end;
var
i:integer;
ShowF:boolean;
begin
ShowF:=False;
if MainForm.MDIChildCount>0 then
begin
for i:=0 to MainForm.MDIChildCount-1do
if MainForm.MDIChildren.Name=FormName then
begin
MainForm.MDIChildren.Show;
ShowF:=True;
break;
end
else
ShowF:=False;
end else
ShowF:=False;
Result:=ShowF;
end;
J
junf_chen
Unregistered / Unconfirmed
GUEST, unregistred user!
if form=nil then