Fórum Testar se o panel já existe #323578

16/06/2006

0

Como faço para testar se um panel já existe para destruí-lo antes?
O código abaixo não funciona.

vnewpanel1,vnewpanel2: Tpanel;
begin
if vnewpanel1 = nil then
vnewpanel1.Free;

vnewpanel1:=Trzpanel.Create(self);
vnewpanel1.Parent := self;
vnewpanel1.Name := ´PLADOA´;
vnewpanel1.Height:= 185;
vnewpanel1.Width := 730;
vnewpanel1.Left := 3 ;
vnewpanel1.Top:=118;
vnewpanel1.Caption:= ´´;


Jubrovolski

Jubrovolski

Responder

Posts

16/06/2006

Christian_adriano

Tente:

var
  vnewpanel1,vnewpanel2: Tpanel; 
begin 
  // Cria o Panel1
  vnewpanel1:=Trzpanel.Create(self); 
  try
    vnewpanel1.Parent := self; 
    vnewpanel1.Name := ´PLADOA´; 
    vnewpanel1.Height:= 185; 
    vnewpanel1.Width := 730; 
    vnewpanel1.Left := 3 ; 
    vnewpanel1.Top:=118; 
    vnewpanel1.Caption:= ´´;
 finally
    // verifica se o Panel1 ja foi criado, caso sim, destroi.
    if Assigned(vnewpanel1) then
      vnewpanel1.free;
 end;



Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar