Feststellen welches Menü item im submenü geklickt wurde

[EWeiss]

Zitat von matashen:

mein letzter Versuch.(Mein Badewasser wird grad kalt !


hab dir schnell was zusammengebastelt und angehängt.

Vielleicht kannst du damit dein Problem finden

Danke für deine mühe

Ich habe es jetzt so gelößt.

Delphi-Quellcode:

procedure TVisForm.ModuleClick(Sender: TObject);
Var
 IntI        : Integer;
 mi          : TMenuItem;
 CurrentItem : Integer;

begin
   mi          := Sender as TMenuItem;
   CurrentItem := mi.tag;
   mi.checked  := True;

  If ( Sender = Spectrum1 ) Then
    ShowMessage('Das war Spectrum1')
  Else If ( Sender = VuBox1 ) Then
    ShowMessage('Das war VuBox1')
  Else If ( Sender = Peristalsis1 ) Then
    ShowMessage('Das war Peristalsis1')
  Else If ( Sender = Polygone1 ) Then
    ShowMessage('Das war Polygone')
  Else If ( Sender = CompactDisc1 ) Then
    ShowMessage('Das war CompactDisc')
  Else If ( Sender = Plasma1 ) Then
    ShowMessage('Das war Plasma')
  Else If ( Sender = Water1 ) Then
    ShowMessage('Das war Water');

    for IntI := 0 to 6 do
      if IntI <> CurrentItem then
      case IntI of
      0:
        Spectrum1.checked := False;
      1:
        VuBox1.checked := False;
      2:
        Peristalsis1.checked := False;
      3:
        Polygone1.checked := False;
      4:
        CompactDisc1.checked := False;
      5:
        Plasma1.checked := False;
      6:
        Water1.checked := False;
      end;
end;

Mein problem bleibt aber bestehen.

Innerhalb der form ist das nun geklärt aber ich muss das submenuItem auch
außerhalb der Form erkennen können welcher index(eintrag) nun gewählt ist.
Da ich hier eine case anweisung einbauen muss welche daraufhin das
im Menu gewählte Visualisierungs-Modul ausführt.

Geht das generell oder muss ich mir da externe variablen einrichten ?

gruss