Verificar se uma form foi criada ou não.
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.
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.
Ovidio
Curtidas 0
Respostas
Tnaires
16/12/2003
Tente essa função:
Sucesso
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
GOSTEI 0
Lucas Silva
16/12/2003
function TForm1.VerificaForm(Form: TForm): Boolean
begin
if Form = nil then
result := False
else
result := True;
end;
Espero ter ajudado!
Lucas!
GOSTEI 0
Imoreira
16/12/2003
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;
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;
GOSTEI 0
Tnaires
16/12/2003
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
Abraços
GOSTEI 0