Zitat von
Muetze1:
Der Parameter Sender ist die Instanz des SubMenus, welches geklickt wurde. Vergleiche dies doch einfach mit deinem Submenu-Items der Form. Wenn der Vergleich stimmt, der war's dann.
Wenn du ganz allgemein auf das MenuItem zugreifen willst, dann mache einen typecast von Sender auf TMenuItem...
Könnte das so funktionieren ?
Delphi-Quellcode:
procedure TVisForm.Vismodule1Click(Sender: TObject);
begin
case Vismodule1.items[Vismodule1.MenuIndex].Tag of
0: ;
1: ;
2: ;
3: ;
4: ;
5: ;
6: ;
end;
end;
Hab da noch ncihts eingetragen das ich es testen könnte..
Habe den Tag's die jeweiligen Indexe übergeben.
gruss Emil