1 respuesta en este tema

[BrainDeath]

Hola... Ultimamente he stado queriendo ponerle hotkeys a un checkbox,use el metodo de actionlist pero al estar minimizado el form no hagarra el hotkey solo funciona maximizado el form.

Alguien sabe alguna forma de ponerle la combinacion de hotkeys "CTRL+A" al checkbox para activar y desactivar la misma ya sea minimizado o maximizado el form?

Espero no sea mucho pedir, Gracias

Saludos.. ^^

[escafandra]

Observa este ejemplo de cHackAll que viene de aquí:

delphi

unit Unit1;
 
interface
 
uses Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
 
type
 TForm1 = class(TForm)
  procedure FormCreate(Sender: TObject);
  procedure HotKey(var Message: TMessage); message WM_HOTKEY;
 end;
 
var Form1: TForm1;
 
implementation
 
{$r *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 RegisterHotKey(Handle, 666, MOD_ALT or MOD_CONTROL or MOD_SHIFT, VK_F5);
end;
 
procedure TForm1.HotKey(var Message: TMessage);
begin
 if Message.WParam = 666 then
  begin
   SetForegroundWindow(Handle);
   ShowMessage('HOT key');
  end;
end;
 
end.

Saludos.