FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
desplegar menu
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 |
#2
|
||||
|
||||
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 Última edición por acertij022 fecha: 03-07-2003 a las 16:16:39. |
#3
|
|||
|
|||
Yo busco algo asi pero que trabaje con el Mainmenu (este es con popupmenu).
Salu2 |
|
|
|