Form

[Vivendo&Aprendendo]

Olá galera essa é fácil para vocês... porque eu to batendo cabeça nisso... como faço para verificar se um form está aberto e se ele estiver deve dar uma mensagem para o usuário caso contrário abre o form...

falou

Alexandre

[Progr'amador]

Olá Alexandre,

É tipo assim:

  for i := 0 to Screen.FormCount-1 do

      if Screen.Forms.Name = 'Form1' then

          ShowMessage('O Form já está aberto!')

      else begin

          Form1 := TForm1.Create(Self);

          Form1.Show;

      end;

end;

Era isso mesmo que você queria?

Abs. Progr'amador.

[Vivendo&Aprendendo]

Não deu certo não quando peço para abrir ele abre umas 10 vezes... deixa eu te explicar...

Criei um relatório em Fortes Report e coloquei esse relatório de forma MDI, mas o form que vai com os componentes não pode ser MDI... então quero que quando clicar e ele não estiver aberto ele abra o relatório, mas quando já estiver de a mensagem.

Entendeu?

Alexandre

[Progr'amador]

Realmente esse código que passei tem erro.

Não conheço esse Fortes Report, mas se fosse usando o QuickReport ficaria assim:

  if Form1 <> nil then begin

     ShowMessage('O Relatório já está aberto!');

     Exit;

  end else begin

     Form1 := TForm1.Create(Self);

     Form1.QuickRep1.Preview;

     Form1.Free;

  end;

No else você usara o mesmo código que você usa pra abrir esse relatorio.

Abs. Progr'amador.

[Vivendo&Aprendendo]

Não deu certo não...

ele fica dando a mensagem depois que fecho e tento abrir novamente

Alexandre

[Morphadron]

Cara tem um lance q tu coloka no projeto(DPR)... Mais ou menos assim...

if findWindow = 'Form' then begin

showmessage ('blá blá');

end;

Mas lembre-se esse é a maneira mais "radical" de c fazer isso, pois mesmo em tempo de designer você recebe esta mensagem, entaum pense bem...

Abraços, Iter Vinícius...

[Vivendo&Aprendendo]

cara ele da um erro no comando FindWindow... porque isso?

falou

V&A