Como saber que SubMenu se ejecuto

[rjsitruiz]

Ahi es donde esta la cosa... no sé como sacar del Evento OnClick el parámetro que me dices.

[jachguate]

No tenes que sacarlo de ningun lado...

Simplemente "pasa" al evento.

Código Delphi [-]
Procedure TForm1.button1click(sender : TObject);

Begin
  // aqui podes invocar a sender sin problemas!
  if Sender is TButton Then
    ShowMessage('botón');
end;

Hasta luego.

[rjsitruiz]

Pues mira pa' eso.. yo creia que era mas complicado...

Una vez mas gracias

[delphi.com.ar]

Código Delphi [-]
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Menu1: TMenuItem;
    Menu2: TMenuItem;
    procedure MenuClick(Sender: TObject);
  private
  public
  end;

implementation

{$R *.DFM}

procedure TForm1.MenuClick(Sender: TObject);
begin
  if Sender = Menu1 Then
    ..
  else
    ..
end;

También podrías hacer un cast del sender, para tratar a todos los objetos de un tipo por igual:

Código Delphi [-]
procedure TForm1.MenuClick(Sender: TObject);
begin
  if Sender is TMenuItem Then
    Caption := TMenuItem(Sender).Caption;
end;