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