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:

zusammenfalten · markieren

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:

markieren

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.

zusammenfalten · markieren

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

eigene Komponente Buttonleiste umstellen

eigene Komponente Buttonleiste umstellen

Forumregeln