MainMenu

Question

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�...

Aroldo Zanela · Answer

Colega,Use ShowModal ao inv�s de Show....

Paullsoftware · Answer

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: