DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais
voltar

PARA QUEM GOSTA DE DELPHI

Show Delphi » Formulários » Como identificar se um formulário do tipo MDIChild já está criado?

Como identificar se um formulário do tipo MDIChild já está criado?

Neste exemplo está sendo procurado os MDIChild do formulário
principal da aplicação.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

{ É necessário declarar Forms,
em versões unicode declare Vcl.Forms }
 
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;
 
// Exemplo de uso:
procedure TForm1.Button1Click(Sender: TObject);
var
  vAux : Integer;
begin
  if IsChildFormExist(TForm1) then
    ShowMessage('O Formulário está aberto!')
  else
    ShowMessage('O Formulário não está aberto!');
end;
Facebook Comments Box
  • InfusTec
  • 4.993 views
  • 0 comentários
  • 21 de março de 2015

Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!

Deixe um comentário

    Patrocinado


    Patrocinado

    Patrocinado

Ir ao topo

© 2024 Infus Soluções em Tecnologia - Todos os Direitos Reservados