Como saber que SubMenu se ejecuto

[rjsitruiz]

Hola:

Tengo un MainMenu con un SubMenu de dos Items... cada Items ejecuta un mismo formulario. Como puedo saber que SubMenu fue el que llamo a mi formulario.

Saludos

[delphi.com.ar]

Utilizando el parámetro sender del evento OnClick. En este parámetro vendrá el objeto que disparó el evento.

Saludos!

[roman]

Podrías declarar una propiedad pública del formulario a la que le asignas un valor que identifique el item. Tal asignación la haces antes de mostrar el formulario. Así, el formulario mira el valor de dicha propiedad (por ejemplo en su evento OnShow) para saber quién lo llamó.

// Saludos

[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;