Teclas de atalho no seu programa

Postado Agosto 19, 2011 13 anos

Bem...

Primeiro coloque procedure WmHotKey(var Msg:TMessage); message WM_HOTKEY; nos types da sua aplicação.

Agora vamos colocar as funções da procedure, coloque:

procedure TForm1.WmHotKey(var Msg:TMessage);

begin 

  Case Msg.WParam of

   1 : Button1Click(Button1); // voc&#234; coloca o que acontecer&#225; se forem pressionadas as teclas de atalho. No caso, simula o clique no bot&#227;o 1 daquele form...

  end;

end;

Declare agora, no oncreate do form:

RegisterHotKey(Handle, 1, MOD_CONTROL, $49); //  registra as teclas do atalho. No caso s&#227;o ctrl(representado por MOD_CONTROL) e a tecla I(representada por $ e a representa&#231;&#227;o hexa da tecla: 49)

Caso você queira por mais teclas no mesmo atalho é só colocar mais uma vírgula e o $ junto da representação hexa da tecla. Exemplo colocando a tecla N junto do código acima:

RegisterHotKey(Handle, 1, MOD_CONTROL, $49, $4e);

Agora, como você colocou para registrar quando criar, você tem que por para disregistrar quando finalizar o programa, então coloque no ondestroy do form:

UnregisterHotKey(Handle, 1);

Atenção: o código está bem explicado até, mas se você não entendeu pesquise e não poste aqui falando que está mal explicado e talz... o que eu usei foi o básico... se não entendeu é porque deve voltar aos estudos...

Editado Agosto 19, 2011 13 anos por antharaz (veja o histórico de edições)

Citar

Mention