Foros Club Delphi - F1 = Notebook?? F2 = IE ????

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - F1 = Notebook?? F2 = IE ???? (https://www.clubdelphi.com/foros/showthread.php?t=3276)

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??

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;

Espero te ayude esta idea.
Saludos