eigene Komponente Buttonleiste umstellen

[David Martens]

Ich habe ein Komponente geschrieben:
TfraButtonleiste = class(TFrame) Damit kann ich, auf einfache Weise, eine immer wieder verwendete Buttonleise anlegen, die verschiedene Buttons aus einem setzen Satz enthält.

Damit es nicht zu groß wird hab ich es etwas gekürzt:

Delphi-Quellcode:

  TButtonType = (fbtSchliessen,
                 fbtUebernehmen,
                 fbtHilfe,
                 fbtAktualisieren,
                 fbtVerwerfen,
                 ...);

  TButtonTypeSet = set of TButtonType;

  TButtonItem = class
  public
    FControl  : TControl;
    FButtonType : TIvuButtonType;
    FCaption  : string;
    FOnClick : TNotifyEvent;
  end;

  TfraButtonleiste = class(TFrame)
  private
    FButtonListe : TList;
  ...
  public
    procedure AddButton(Button : TButtonType;
                        OnClick : TNotifyEvent = nil;
                        Caption : string = '');

    procedure InsertButton(Button : TButtonType;
                           AfterButton : TButtonType;
                           OnClick : TNotifyEvent = nil;
                           Caption : string = '');

  published
    property Buttons : TButtonTypeSet read GetButtons write SetButtons;

    property OnClickSchliessen    : TNotifyEvent read FOnClickSchliessen    write FOnClickSchliessen;
    property OnClickUebernehmen   : TNotifyEvent read FOnClickUebernehmen   write FOnClickUebernehmen;
    property OnClickHilfe         : TNotifyEvent read FOnClickHilfe         write FOnClickHilfe;
    property OnClickAktualisieren : TNotifyEvent read FOnClickAktualisieren write FOnClickAktualisieren;
    ...

Den published Teil hab ich jetzt hinzugefügt um im OI die Buttons zu setzen und nicht mehr im Programm:

Delphi-Quellcode:

  fraButtonleiste1.AddButton(fbtAktualisieren, btnAktualisierenClick);
  fraButtonleiste1.AddButton(fbtUebernehmen, btnUebernehmenClick);
  fraButtonleiste1.AddButton(fbtHilfe);

Mein Problem ist jetzt, das ich durch die Verwendung eines Sets die Reihenfolge der Buttons im OI natürlich nicht ändern kann.

Delphi-Quellcode:

procedure TfraButtonleiste.SetButtons(const Value: TButtonTypeSet);
var
  i : TButtonType;
begin
  FButtons := Value;
  ClearButtons;

  for i := fbtSchliessen to fbtAttributieren do
  begin
    if i in FButtons then
      case i of
        fbtSchliessen    : AddButton(i, FOnClickSchliessen);
        fbtUebernehmen   : AddButton(i, FOnClickUebernehmen);
        fbtHilfe         : AddButton(i, FOnClickHilfe);
        fbtAktualisieren : AddButton(i, FOnClickAktualisieren);
        fbtVerwerfen     : AddButton(i, FOnClickVerwerfen);
        ...
      end;
  end;
end;

Intern benutze ich ja schon eine TList mit TButtonItem Objekten.
Soweit ich das verstanden habe brauch' ich eine TCollection und TCollectionItem, so ist es zumindest in Delphi gelöst. Kann mir da jemand eine Hilfestellung geben.

Was brauch' ich, was ist wichtig, gibt es ein Tutorial?

Danke David