MainMenu

Delphi

03/03/2006

to com um problema, to fazendo um trabalho de escola e o trabalho estamos utilizando MainMenu com 4 formulários o principal e mais 3 que serão abertos pelo MainMenu, mas não pode abrir o mesmo formulário 2 ou mais vezes e comigo esta abrindo quantas vezes vc clicar...
por favor me ajudem.
msn: mitinicksilvestre@gmail.com

agradeço desde ja!!!


Ubuntu

Ubuntu

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

03/03/2006

Colega,

Use ShowModal ao invés de Show.


GOSTEI 0
Paullsoftware

Paullsoftware

03/03/2006

a dica do Aroldo já serve, vai mais uma outra maneira para vc escolher!
se vc estiver usando aplicação Mid com Formulário Pai e Filho tente fazer assim:

Uso essa para testar se o form já esta aberto:
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;


e na hora de abrir faço assim:
 if FormExiste(fFilmesLocados) then
  begin
  fFilmesLocados.BringToFront;
  fFilmesLocados.Focused;
  end else
  begin
  fFilmesLocados:=TfFilmesLocados.Create(Self);
  fFilmesLocados.BringToFront;
  fFilmesLocados.Focused;
  end

espero ter ajudado! :wink:


GOSTEI 0
POSTAR