本文介绍了一个用于检查特定名称窗体是否存在的Delphi函数。该函数通过遍历所有当前激活的窗体来判断是否存在指定名称的窗体，并返回布尔值结果。
能实现检查窗口是否存在的函数
function checkformexist(FormName: String): Boolean;
var
I: Integer;
begin
Result:= False;
for I := 0 to Screen.FormCount-1 do
begin
if Screen.Forms[I].Name = FormName then
Result:= True;
end;
end;
var
I: Integer;
begin
Result:= False;
for I := 0 to Screen.FormCount-1 do
begin
if Screen.Forms[I].Name = FormName then
Result:= True;
end;
end;
扫一扫
1253
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
