Feststellen welches Menü item im submenü geklickt wurde

[EWeiss]

Habe das mal nachvollzogen
komme aber nicht auf das submenuitem

Delphi-Quellcode:

procedure TVisForm.Vismodule1Click(Sender: TObject);
Begin
  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
    ShowMessage('Das war irgendwas anderes...');

end;

Er springt immer in 'Das war irgendwas anderes...'
Sobald ich mit der maus auf den eintrag Vismodule1 komme
Ein klick Event kann ich dann nicht mehr auslösen.

Auch nach den kommentieren dieser zeile komm ich niemals ins submenü ....


Verstehe nicht das es so kompliziert ist an den eintrag eines Menüs zu gelangen

Sorry das ich nochmal mit VB anfange..
Ich gebe im Designer einen Index für den Eintrag ein.
Dann wird beim aufruf direkt ne sub angelegt wo ein Index mit übergeben wird.

Delphi-Quellcode:

Private Sub mnuVis_Click(Index As Integer)

    DoEvents
    Select Case Index
    Case 0, 1, 2, 3, 4
        VisAll = False
    Case 5
        VisAll = True
    End Select
    mnuVis(Index).Checked = True
    CurFlame = Index
    For Index = 0 To 5
        If Index <> CurFlame Then
            mnuVis(Index).Checked = False
        End If
    Next Index
    If Index = 5 Then
        CurFlame = 4
    End If
    SaveSetting EMPLAYER, "Visual", "CurFlame", CurFlame

End Sub

Dann kann ich mit dem Index arbeiten ohne irgendwelche probleme
oder etwas anderes dafür zu initialisieren.

gruss