menu y submenú

[cmfab]

Hola a todos. tengo el siguiente problemilla. supongamos que tenemos un control TMainmenu conformado de la siguiente forma:

Menu1 (item del Tmainmenu) que se divide en un submenu con dos opciones mas submenu1_1 y submenu1_2. lo que necesito es que al hacer click sobre el item padre (Menu1) se ejecute el evento onclick del submenu1_1. actualemente si se le asigna el evento onclick del item submenu1_1 al item menu1 se ejecuta automaticamante al seleccionar menu1 y abrirse el submenú. espero que se haya entendido. desde ya mil gracias a todos

[ecfisa]

Hola cmfab.

No entiendo cual es el problema. Si el menu padre debe ejecutar automáticamente el primer menu hijo, ya le has dado la solución: Asignar al menu padre el procedimiento del evento OnClick del primer menu hijo. O con igual resultado, también podes hacer:

Código Delphi [-]
procedure TForm1.Menu1Click(Sender: TObject);
begin
  submenu1_1.Click;
end;

Un saludo.

[cmfab]

Garcias por la respuesta. si eso fue lo primero que hice. lo que pasa es que cuando se enfoca el item padre que se abre el submenu se lanza el evento del oncliick automaticamente antes de hacer click sobre el item padre

[ecfisa]

Hola cmfab.

Ese es el comportamiento por defecto tanto del TMainMenu como del TPopupMenu. Cuando un TMenuItem tiene un submenu,
el evento OnClick se dispara antes que el submenu sea mostrado, sin ser necesario hacer click sobre el.
Desconozco si dicho comportamiento puede ser modificado.

Un saludo.

[cmfab]

Gracias por las respuestas
alquien conoce como hacer para que no se dispare este evento si no se hace click sobre el item padre