Objekte löschen

[Basic-Master]

versuch den code zum erstellen:

Delphi-Quellcode:

procedure TOkBottomDlg.Neues_Button_erstellen (x, y, h, w : integer; const name : string);
var NewButton: {TSpeed}TButton;
    i : integer;
    str1b : string;
begin
  NewButton := TButton.Create(OkBottomDlg.Bevel1);
  // Eigenschaften des neuen Buttons festlegen:
  with NewButton do begin
    Parent := OkBottomDlg;´
    inc(buttons_anzahl);
    Name := 'NeuesButton' + IntToStr(buttons_anzahl);
    Caption := name;
    Top := y;
    Left := x+25;
    Height := h;
    Width := w;
    @NewButton.OnClick := @MeinEigenesOnClick;
  end;
  if buttons_anzahl <= 20 then buttons_names [buttons_anzahl] := name;
end;

und den zum löschen:

Delphi-Quellcode:

var i:integer;
begin
for i := 0 to button_anzahl do //du hast doch button_anzahl global deklariert oder?
  OkBottomDlg.FindComponent('NeuesButton' + inttostr(i)).Free;
end;

habs jetzt nicht getestet, sollte aber funzen...