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.

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]

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:

procedure TForm1.MenuClick(Sender: TObject);
begin
if Sender is TMenuItem Then
Caption := TMenuItem(Sender).Caption;
end;