QVok - Ein Vokabeltrainer

[Bjoerk]

Um die Bedienelemente zu setzen, kannst du ein Set benutzen (ist übersichtlicher und weniger fehleranfällig).

Delphi-Quellcode:

type
  TToolButtonEnabledFlags = set of (tbefNeu, tbefOpen, tbefSave, tbefAdd, 
    tbefEdit, tbefDel, tbefSearch, tbefAbfrag, tbefAll);

..

procedure TFGUI.SetToolButtonsEnabled(Flags: TToolButtonEnabledFlags);
begin
  Bt_Neu.Enabled := (tbefNeu in Flags) or (tbefAll in Flags);
  Bt_Oeffnen.Enabled := (tbefOpen in Flags) or (tbefAll in Flags);
  Bt_Speichern.Enabled := (tbefSave in Flags) or (tbefAll in Flags);
  Bt_Hinzufuegen.Enabled := (tbefAdd in Flags) or (tbefAll in Flags);
  Bt_Bearbeiten.Enabled := (tbefEdit in Flags) or (tbefAll in Flags);
  Bt_Loeschen.Enabled := (tbefDel in Flags) or (tbefAll in Flags);
  Bt_Suche.Enabled := (tbefSearch in Flags) or (tbefAll in Flags);
  Bt_Abfrage.Enabled := (tbefAbfrag in Flags) or (tbefAll in Flags);
end;

..

  SetToolButtonsEnabled([tbefAll]);
  SetToolButtonsEnabled([tbefAbfrag]);

Gruß
Thomas