Objekte löschen

[devnull]

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;
    Caption := name;
    Top := y;
    Left := x+25;
    Height := h;
    Width := w;
    @NewButton.OnClick := @MeinEigenesOnClick;
  end;
  inc (buttons_anzahl);
  if buttons_anzahl <= 20 then buttons_names [buttons_anzahl] := name;
end;

Die Proze wird aber aus einer anderen Unit ausgeführt (Form1) und in OKBottomDlg ausgeführt ...

Zum löschen:

Delphi-Quellcode:

procedure Buttons_loeschen;
var i : integer;
    NewButton: TButton;
begin
  for i := 1 to Buttons_Anzahl do begin
      try
        OKBottomDlg.FindComponent(Buttons_names[i]).Free;
      except
      end;
  end;
end;

Die Proze rufe ich auf, bevor OKBottomDlg geschlossen wird (OKBottomDlg.Close);
Auch wenns nich so toll sein sollte ...

Ich weis nich, worans liegt

devnull