desplegar menu

[jfontane]

Hola a todos, mi problema es el siguiente tengo un menu principal parecido a esto 1-Sistema 2-Base de Datos 3-Ayuda.
Lo que quiero hacer es apretar el 1 (ALT - 1 No!!) y que me despliegue el menu sistema. Segurmente sera desde keypress si key = ordinal de 1. pero que evento ejecuto para que me despliegue el menu sistema por ejemplo,
ondesplegar()

Saludos

[acertij022]

el codigo sria algo asi:

procedure TFMain.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key in ['1'] then
begin
Fmain.PopupMenu1.Popup(550,60); //abro el menu
Fmain.PopupMenu1.Items[1].Click; // hago click en el item número 1
end;
end;

Tene en cuenta poner KeyPreview poner en True en el formulario.

Espero haberte ayudado

salud2



PD:= Hoy por tí mañana por mi

[jfontane]

Yo busco algo asi pero que trabaje con el Mainmenu (este es con popupmenu).

Salu2