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...