Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
7. Dez 2005
Guten Morgen.
Deine Fakten sind nicht meine. Vielleicht findest du im angehängten Demo-Projekt den Grund, warum dein Programm mit meinem Code nicht funktioniert.
Freundliche Grüße vom marabu
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
6. Dez 2005
Ich musste den Code bei mir mit irgendwas Testen - und bei mir war 5 der richtige Wert. Du musst den für dein Programm richtigen Wert bestimmen. Eine Möglichkeit ist durch das Setzen eines BreakPoint, aber es gibt bestimmt auch andere Wege...
Hast du MenuToolbarContextPopup() überhaupt deiner Menu-Komponente zugewiesen?
marabu
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
6. Dez 2005
Hallo.
Setze einen BreakPoint in MenuItemSelect und vergewissere dich, dass die Routine angesprungen wird, wenn du mit der rechten Maustaste auf dein MenuItem klickst. Vergleiche dabei den Viewer.Index mit dem Wert in MenuToolbarContextPopup.
marabu
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
6. Dez 2005
Hallo,
von welchem Typ ist menu in deinem Beispiel? Wenn es ein TTBToolBar ist, dann sollte folgendes funktionieren:
type
TForm1 = class(TForm)
// ...
procedure MenuItemSelect(Sender: TTBCustomItem; Viewer: TTBItemViewer;
Selecting: Boolean);