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:= ´´;
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
Curtir tópico
+ 0
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
Clique aqui para fazer login e interagir na Comunidade :)