Feststellen welches Menü item im submenü geklickt wurde

[EWeiss]

Zitat von Muetze1:

Zitat von EWeiss:

Hi kenn mich in Delphi.NET auch nicht aus

Du hast aber bei deinem ersten Beitrag angegeben, dass du mit .NET arbeitest...

Zitat von EWeiss:

Jetzt funktioniert auch diese Abfrage!

Und was hast du bezüglich dem Versuch zuvor verändert?

Sorry hab da wohl die falsche Sprache angegeben sollte natürlich Delphi sein
Habe jetzt alle OnClick ereignisse auf die sub gelegt.

Delphi-Quellcode:

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

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

   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...');

  for i := 0 to 6 do
        If i = CurrentItem Then
            mi.Checked := true
        else
            mi.Checked := false;

end;

Das funktioniert zwar ..
Aber wie kann ich jetzt außerhalb der form den Menüeintrag abfragen welcher angeklickt wurde ?
Wenn ich immer noch nicht weiss wie ich an die submenuitems gelange.

Auch wird mir so der eintrag nicht als checked makiert ...

gruss Emil