Foros Club Delphi - Ejecutar Combinacion de teclas

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

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

- - Ejecutar Combinacion de teclas (https://www.clubdelphi.com/foros/showthread.php?t=58585)

look	24-07-2008 19:17:10

Ejecutar Combinacion de teclas

Hola Amigos :) , me gustaria que me echaran una manita con lo siguiente :
tengo un boton en un form MDI, y lo que quiero es que al precionar el boton
ejecute la combinacion de teclas CTRL+F6, pero no se como hacerlo , espero me ayuden.

Código Delphi [-]procedure TMain1.nextwbClick(Sender: TObject);
begin
////?? ejecutar conbinacion de teclas CTRL+F6 
end;

Khronos

24-07-2008 20:59:06

Con esto serviría:

Código Delphi [-]begin
keybd_event(VK_CONTROL,0,0,0); //presionamos control
keybd_event(VK_F6,0,0,0); //presionamos F6
keybd_event(VK_F6,0,2,0); //levantamos F6
keybd_event(VK_CONTROL,0,2,0); //levantamos control
end;

Salu2

look	24-07-2008 21:05:34

Cita:

Empezado por Khronos (Mensaje 303067)

Con esto serviría:
Código Delphi [-]begin keybd_event(VK_CONTROL,0,0,0); //presionamos control
keybd_event(VK_F6,0,0,0); //presionamos F6
keybd_event(VK_F6,0,2,0); //levantamos F6
keybd_event(VK_CONTROL,0,2,0); //levantamos control
end;

Salu2

Pues Funciono muy bien Gracias Amigo Khronos...

La franja horaria es GMT +2. Ahora son las 15:43:39.