Feststellen welches Menü item im submenü geklickt wurde

[EWeiss]

Zitat von Nuclear-Ping:

Ich kenne mich mit Delphi.NET zwar nicht aus, aber wieso weißt du nicht einfach für jedes SubMenu-Item den gleichen OnClick-Event zu?

In dem Event castest du den Sender einfach auf TMenuItem (oder wie das in Delphi.NET heisst) und schon hast du das geklickte Item.

Delphi-Quellcode:

procedure TVisForm1.FooMenuItemClick (Sender: TObject);
begin
  ShowMessage ((Sender as TMenuItem).Caption);
end;

Geht das nicht?

Hi kenn mich in Delphi.NET auch nicht aus
Aber das war sehr Hilfreich.

Jetzt funktioniert auch diese Abfrage!

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;

gruss Emil