Verificar se uma form foi criada ou não.
16/12/2003
0
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
Posts
16/12/2003
Tnaires
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
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!
16/12/2003
Imoreira
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;
16/12/2003
Tnaires
Abraços
Clique aqui para fazer login e interagir na Comunidade :)
