Feststellen welches Menü item im submenü geklickt wurde

[Muetze1]

Entweder über Sender und Instanzenvergleich:

Delphi-Quellcode:

Procedure TBlubbv.Click(Sender: TObject);
Begin
  If ( Sender = miMeinMenuItem1 ) Then
    ShowMessage('Das war miMeinMenuItem1')
  Else If ( Sender = miMeinMenuItem2 ) Then
    ShowMessage('Das war miMeinMenuItem2')
  Else If ( Sender = miMeinMenuItem3 ) Then
    ShowMessage('Das war miMeinMenuItem3')
  Else
    ShowMessage('Das war irgendwas anderes...');
End;

Oder über den Tag:

Delphi-Quellcode:

Procedure TBlubb.Click(Sender: TObject);
Begin
  If Sender Is TComponent Then
  Begin
    Case TComponent(Sender).Tag Of
      1: ShowMessage('Tag = 1');
      2: ShowMessage('Tag = 2');
      3: ShowMessage('Tag = 3');
      4: ShowMessage('Tag = 4');
    End;
  End;
End;