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