Componentes sin form.

[sur-se]

Bueno pues ahí pongo otra solución sin usar componentes externos como sugiere Neftali:

unit Unit1;
 
interface 
 
uses 
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls;
 
type 
   TForm1 = class(TForm)
     Button1: TButton;
     procedure FormCreate(Sender: TObject);
     procedure HtoK(var Msg : TWMHotKey); message WM_HotKey;
   private
     { Private declarations }
   public
     { Public declarations }
   end; 
 
var 
   Form1: TForm1;
implementation 
 
{$R *.dfm}
 
procedure tform1.HtoK(var Msg : TWMHotKey);
begin 
showmessage('Alt-V');
end; 
 
procedure TForm1.FormCreate(Sender: TObject);
begin 
  registerHotKey(handle,GlobalAddAtom('ALT_V'),MOD_ALt,vKKeyscan('v'));
 
end; 
 
end.

Un saludo.

[[coso]]

Si, bueno, sur-se, eso es exactamente el codigo de neftali, pero incorrecto...¿deberas desregistrarlas al acabar la aplicación no?

[[coso]]

y...el componente externo lo has citado tu...

[sur-se]

Efectivamente, un poco más resumido que el código de neftalí, y más sencillo de entender al tener menos código. Si al final faltaría desregistrar, pero es básicamente un ejemplo de esqueleto para hacerlo.

Respecto al componente, efectivamente lo puse yo porque es una solución muy sencilla (haga lo que haga internamente) que encapsula todo. Era por si le servía al compañero que puso el post, nada más. Yo lo utilizo porque me ahorra escribir código nada más.

Un saludo.

[[coso]]

si si, claro, efectivamente...