Objekt freigeben

[Generalissimo]

Ich hab das so gemacht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
   p:=TPanel.Create(self);
   p.Parent:=Form1;
   p.Left:=100;
   p.Top:=100;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  p.Destroy;
end;

P als globale Variable. Funktioniert bestens.

[edit=Daniel B]Delphi-Tags eingefügt. Mfg, Daniel B[/edit]