MDI Form - Verificar se ja esta ativo

07/02/2006

0

Bom dia Pessoal

EU gostaria de saber como posso fazer para verificar se o meu fomulário ja esta aberto e caso ele esteja abero que o sistema o coloque como janela ativa novamente.

Atualmente estou usando um esquema de MDI Form e quando eu clique por ventura duas ou trez vezes no local em que crio o form ele simplismente recria o form e eu não quero que ele faça isso

abaixo o código de acesso do form

  Application.CreateForm(TFrmEstacoes, FrmEstacoes);
    FrmEstacoes.Show;


eu tentei colocar como SHOWMODAL, porém creio que MDI não da suporte.

Bom fico no aguardo de um help


Desde de ja agradeço

Wagner


Wagnermarrane

Wagnermarrane

Responder

Posts

07/02/2006

Martins

tente fazer assim:


if Formx = nil then
begin
  Formx := TFormx.Create(Nil);
  Formx.Show;
end
else
  ShowMessage(´O form já está instanciado...´);
  Formx.Show;


No OnDestroy do Formx coloque

Formx := Nil;


Boa sorte!!!


Responder

07/02/2006

Paullsoftware

tenho uma função que pode te ajudar bastante!
// Verifica se o form a ser criado já esta carregado
function FormExiste(aberto: Tform): Boolean;
var
I:Integer;
begin
    FormExiste := false;
    for I := 0 to Screen.FormCount -1 do
    if Screen.Forms[i] = aberto then
    begin
    FormExiste := true;
    Break;
    end
end;

[b:709b302e90]modo de usar[/b:709b302e90]
if Not FormExiste( fMostraRecados ) then
begin
fMostraRecados := TfMostraRecados.Create(Self);
fMostraRecados.BringToFront;
fMostraRecados.Focused;
end
else
begin
fMostraRecados.BringToFront;
fMostraRecados.Focused;
end;
onde fMostraRecados é o nome do form a ser verificado


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar