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