![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
#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 15:16:39. |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
|