destruir e criar componente ...

Delphi

27/10/2003

queria sabe como faço pra destruir um componente e cria-lo depois...

tipo. click no botão ele component.destroy. agora como faço pra criar ele em run-time .... ???

grato
Guilherme


Guibas

Guibas

Curtidas 0

Respostas

Ljr

Ljr

27/10/2003

Um exemplo seria este codigo

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Free;
end;

procedure TForm1.FormClick(Sender: TObject);
var
  Button1: TButton;
begin
  Button1:= TButton.Create(Self);
  with Button1 do
  begin
    Name:= ´Button1´;
    Parent:= Form1;
    Caption:= ´Button1´;
    Top:= 6;
    Left:= 66;
    OnClick:= Button1Click;
    Visible:= True;
  end;
end;


Deu certo?


GOSTEI 0
POSTAR