Toolbutton im Quellcode selbst erstellen

[Christian Seehase]

Moin Alexander,

ich weiss ja nicht, wie Du es gemacht hast, aber so würde es z.B. Funktionieren, alle wieder zu löschen.

Code:

var
  i      : integer;
  tbWork : TToolButton;


begin
  for i := 0 to Memo1.Lines.Count-1 do
  begin
    if FindComponent('TBDYN_'+IntToStr(i)) <> nil then
    begin
      tbWork := TToolButton(FindComponent('TBDYN_'+IntToStr(i)));
      FreeAndNil(tbWork);
    end;
  end;
end;