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