FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
F1 = Notebook?? F2 = IE ????
hola a todos
Me gustaria saber como puedo en mi formulario hacer que cuando por ejemplo se pulse F1, salga en la statusbar que he pulsado 'F1' y que abra el notebook, y que cuando pulse F2 salga 'F2' y abra el internet explorer...... etc... como puedo hacer?? |
#2
|
|||
|
|||
Hola NIKO, implementa este evento con este código para obtener lo que deseas. En la unit windows.pas están el resto de los números asociados a las distintas teclas. Debes pasar la propiedad KeyPreview del formulario a true.
Código:
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); var tecla:string; begin case key of 112: begin winexec('notepad.exe',SW_SHOW); tecla:='F1'; end; 113: begin winexec('C:\Archivos de programa\Internet Explorer\IEXPLORE.EXE',SW_SHOW); tecla:='F2'; end; end; statusbar1.SimpleText:='Tecla Pulsada '+tecla; end; Saludos |
|
|
|