wie lösche ich dynamisch erstellte objakte?

[franz77]

Hallo fredel007!

Wieso nimmst Du die Buttons nicht als member in die Klassendeklaration mit auf, dann kannst du auch jederzeit wieder darauf zugreifen:

Delphi-Quellcode:

TForm1 = class (TForm)
 ...
 private
 btn1, btn2, btn3: TSpeedButton;
 ...
end;

...
procedure TForm1.createButtons;
begin
  btn1:= TSpeedButton.Create ( Self );
  with btn1 do
  begin
    // buttons positionieren, parent zuweisen usw.
  end;

  btn2:= ...
end;


procedure TFrom1.deleteButtons;
begin
  if assigned (btn1) then btn1.free;
  if assigned (btn2) then ...
  // usw.
end;

Gruss, Franz