RSS

Verificar se Form já está aberto

27 dez

function ChecaForm(aForm: Tform): Boolean;
var
I:Integer;
begin
    ChecaForm := false;
    for I := 0 to Screen.FormCount -1 do
    if Screen.Forms[i] = aForm then
    begin
    ChecaForm := true;
    Break;
    end;
end;  (* ChecaForm *)

para executar…

Código:

if ChecaForm(FrmUsuarios) then
  begin
    FrmUsuarios.BringToFront;
    FrmUsuarios.Focused;
  end
else
  begin
    FrmUsuarios := TFrmUsuarios.Create(nil);
    FrmUsuarios.BringToFront;
    FrmUsuarios.Focused;
  end;

Anúncios
 
Deixe um comentário

Publicado por em 27/12/2009 em Estudos Delphi

 

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

 
%d blogueiros gostam disto: