Foros Club Delphi - Consulta OnKeyDown.

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

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

- - Consulta OnKeyDown. (https://www.clubdelphi.com/foros/showthread.php?t=71016)

emii89

24-11-2010 21:05:58

Consulta OnKeyDown.

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

24-11-2010 21:20:32

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

24-11-2010 21:34:09

Cita:

Empezado por cloayza (Mensaje 383177)

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

24-11-2010 22:01:28

Cita:

Empezado por emii89 (Mensaje 383181)

Eso me sirve para hacerlo funcionar en otros programas?

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

Saludos

La franja horaria es GMT +2. Ahora son las 11:17:56.