Verificar se uma form foi criada ou não.

16/12/2003

1

Olá, pessoal.
Preciso saber como faço para testar se uma form já foi criada ou não.
Alguém sabe alguma variável que eu possa testar para ver isso ?

Sem mais, agradeço desde já.

Fiquem com Deus e que Jesus sempre ilumine seus passos.

Ovidio A.Vecchi Jr.


Responder

Posts

16/12/2003

Tnaires

Tente essa função:
function ChamarFormulario(F:TForm): boolean;
var k: integer;
begin
  result:=False;
  if F = nil then
    exit;
  for k:=0 to application.ComponentCount -1 do
    if Application.Components[k] = F then
    begin
      result:=True;
      exit;
    end;
end;


Sucesso


Responder

16/12/2003

Lucas Silva

function TForm1.VerificaForm(Form: TForm): Boolean
 begin
   if Form = nil then
     result := False
    else
      result := True;

end;


Espero ter ajudado!
Lucas!


Responder

16/12/2003

Imoreira

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if not assigned(form2) then begin
application.createform(tform2,form2);
form2.show;
end else begin
showmessage(´Form já foi criado.´);
end;
end;

Adicione no evento onclose do form2;
Form2:=nil;


Responder

16/12/2003

Tnaires

O laço for q eu acrescentei serve apenas pra varrer todos os forms da aplicação, para assegyrar realmente q o form d fato não foi criado ainda.

Abraços


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira