Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by marabu,
24. Mär 2007
Hallo,
um den Ordinaltyp kommst du bei der CASE-Anweisung nicht drum herum. Entweder du machst es so, wie dir Jens in Beitrag #3 gezeigt hat oder du musst tricksen: Weise der Tag-Property der MenuItems jeweils eine eindeutige Konstante zu und werte diese dann aus (siehe Beitrag #7) oder verwende die Eigenschaft Command eines MenuItems, welche abhängig von der Position des Items im MainMenu...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by marabu,
23. Mär 2007
Na sicher kannst du - allerdings verwechselst du wohl einige Begriffe.
Ein MainMenu (TMainMenu) besteht aus MenuItems (TMenuItem) und nicht aus Buttons. Du hast eine ActionList mit einer Action angelegt, die du an zwei MenuItems zugewiesen hast. Wenn die OnExecute-Routine der Action die Kontrolle erhält, dann erfährst du über die property ActionComponent der Action, über welches MenuItem die...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by marabu,
23. Mär 2007
Herzlich willkommen in der Delphi-PRAXiS, CUBEstorm.
Für Items mit ähnlicher Funktion kannst du sehr einfach einen gemeinsamen event handler bereit stellen. Im folgenden Beispiel wird angenommen, dass du die vier möglichen ViewStyles der tag-property der MenuItems zugeiwsen hast:
procedure TDemoForm.ViewStyleClick(Sender: TObject);
begin
with Sender as TMenuItem do
...