wie lösche ich dynamisch erstellte objakte?

[fredel007]

Hi Leute, ich hänge seit ein paar Tagen an einem Problem fest,
ich ich erstelle mir 3 SpeedButtons während der Laufzeit durch ein Onclick Ereigniss eines normalen Buttons!
Jetzt möchte ich diese 3 SpeedButtons durch einen Click auf einen anderen Button wieder entfernen,
ich hab schon alles mir bekannte ausprobiert, aber es will einfach net klappen!

Kann mir vielleicht jemand helfen? :)

vielen Dank schonmal im Vorraus!

Delphi-Quellcode:

procedure TForm1.B1Click(Sender: TObject);
var
  i:    integer;
Begin
  for i := 1 to 3 do
  begin
    with Tspeedbutton.Create(form1) do
    begin
      Name :='sb' + inttostr(i);
      Parent := form1;
      Width := 17;
      Height := 17;
      Top := 100*i;
      Left := 100*i;
      FreeOnRelease;
    end;
  end;
end;

procedure TForm1.B2Click(Sender: TObject);
begin
  { hier sollen die drei Buttons wieder gelöscht werden }
end;

[mirage228]

Moin,

guck mal nach FindComponent

bsp:

Delphi-Quellcode:

  (FindComponent('SpeedButton1') as TSpeedButton).Free

mfG
mirage228

[fredel007]

:hello: Danke, jetzt kann ich endlich wieder gut schlafen :-D

[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

[maximov]

Die betonung liegt auf dynamisch so wäre es statisch :wink:

[mirage228]

Er könnte ja einen dynamischen Array von TSpeedButton machen, dann hätte er es dynamisch ;-D