Array
(
)

MainMenu

Ubuntu
   - 03 mar 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!!!


Aroldo Zanela
   - 03 mar 2006

Colega,

Use ShowModal ao invés de Show.


Paullsoftware
   - 03 mar 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:
#Código

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:
#Código
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: