Consulta OnKeyDown.

[emii89]

Muchachos, cómo puedo hacer para qué al apretar el click derecho del mouse, el evento OnKeyDown haga enter y luego espacio ?

Tengo manera de qué el programa funcione incluso sí no está activo y estoy trabajando con otro programa??

Gracias!

[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;

[emii89]

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.

[cloayza]

Empezado por emii89

Eso me sirve para hacerlo funcionar en otros programas?

En cualquier programa delphi podras implementar este codigo, a eso te refieres..

Saludos