Código
aplicação é do tipo fsMDIForm e com essa função é
possível verificar se algum formulário do tipo
fsMDIChild já está criado. }
function IsChildFormExist(InstanceClass: TFormClass): Boolean;
var
I : Integer;
begin
with (Application.MainForm) do
for I := 0 to MDIChildCount - 1 do
if (MDIChildren[i] is InstanceClass) then
begin
Result:= True;
Exit;
end;
Result := False;
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009