Cita:
Empezado por cloayza
Asi a la rapida...
Código Delphi [-]procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key=VK_RETURN then Edit1.Text:='Enter'; if Key=VK_SPACE then Edit1.Text:='Enter + Space'; end; procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var key:Word; begin if Button =mbRight then begin key:=VK_RETURN; FormKeyDown(Sender,key,Shift); key:=VK_SPACE; FormKeyDown(Sender,key,Shift); end; end;
|
Buenísimo, eso es una gran ayuda. Eso me sirve para hacerlo funcionar en otros programas? básicamente quiero poder configurar el teclado a mi gusto, presionar una tecla y que haga otras.