[Tutorial] Hotkeys Globais

Ir em baixo

[Tutorial] Hotkeys Globais

Mensagem por Coca em Seg 26 Jul 2010 - 12:13

Ok, eu si gente fazendo hotkeys usando timers, não tem nada de "errado" sobre isso.
Mas existem maneiras mais eficientes de se fazer isso.
bom... vou colocar o código direto aqui, é bem simples de entender.
Código:
unit Unit2;

interface

uses
**Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
**Dialogs, StdCtrls;

type
**TForm2 = class(TForm)
****procedure FormCreate(Sender: TObject);
****procedure FormDestroy(Sender: TObject);
**private
****procedure WMHotKey(var Message: TMessage); message WM_HOTKEY;
**public
****{ Public declarations }
**end;

var
**Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
**RegisterHotKey(form2.Handle,123,MOD_ALT+MOD_CONTROL+MOD_SHIFT,vk_f7); //registrar hotkey
**RegisterHotKey(form2.Handle,124,0,vk_f8); //registrar hotkey
end;

procedure TForm2.FormDestroy(Sender: TObject);
begin
 UnregisterHotKey(form2.Handle, 123); //desregistrar hotkey
 UnregisterHotKey(form2.Handle, 124); //desregistrar hotkey
end;

procedure Tform2.WMHotKey(var Message: TMessage);
begin
**application.Restore;
**application.bringtofront;
**case message.WParam of
**123: showmessage('hotkey1');
**124: showmessage('hotkey2');
**end;
end;

end.

assim vc pode registrar n hotkeys e de uma maneira masi limpa e eficiente.

É isso, tomara que ajude.


Preucuramos moderador e coordenador e game zone, por favor entra em contato com Coca.
ENIVAR MP.

FireHackers A procura de novos Membros e cada vez melhor.
avatar
Coca
Administrador
Administrador

<b>Mensagens/Posts</b> Mensagens/Posts : 77
Moedas Moedas : 5462
Idade Idade : 22
<b>Localização</b> Localização : Hacking

Compras
   : Compro o Fórum..

http://firehackers.rg3.net

Voltar ao Topo Ir em baixo

Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum