Buscar

Como saber se um formulário do tipo MDIChild já está criado.

Código

{ Neste exemplo o formulário principal da
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;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Forms
Adicionada dia: 10/01/11
Por: Giovani Da Cruz
Visualizada: 2531 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009