Capturar e registrar as teclas pressionadas pelo usuário

Para capturar e registrar as teclas pressionadas pelo usuário em um programa Delphi, você pode usar a biblioteca Messages e os procedimentos WndProc para manipular as mensagens do Windows. Aqui está um exemplo simples de como você pode fazer isso:

 

   
unit Main;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure WMHotkey(var Msg: TWMHotkey); message WM_HOTKEY;
    procedure HookKeyPress;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  HookKeyPress;
end;

procedure TForm1.WMHotkey(var Msg: TWMHotkey);
begin
  case Msg.HotKey of
    1:
      begin
        // A tecla com identificador 1 (VK_F1) foi pressionada
        ShowMessage('A tecla F1 foi pressionada.');
      end;
    2:
      begin
        // A tecla com identificador 2 (VK_F2) foi pressionada
        ShowMessage('A tecla F2 foi pressionada.');
      end;
    // Adicione mais identificadores para outras teclas, se necessário
  end;
end;

procedure TForm1.HookKeyPress;
begin
  // Registre as teclas que deseja capturar
  RegisterHotKey(Handle, 1, 0, VK_F1); // Exemplo para a tecla F1
  RegisterHotKey(Handle, 2, 0, VK_F2); // Exemplo para a tecla F2
  // Adicione mais hotkeys para outras teclas, se necessário
end;

end.

  
 
      

Neste exemplo, definimos um aplicativo Delphi simples com um procedimento HookKeyPress que registra as teclas que desejamos capturar, como F1 e F2, usando RegisterHotKey. Em seguida, temos um procedimento WMHotkey que é chamado quando as teclas são pressionadas e onde você pode realizar a ação desejada. Lembre-se de adicionar o tratamento adequado para as teclas que deseja capturar, além de lidar com a liberação das hotkeys quando o aplicativo for fechado.

17/04/2026 05:05 Delphi 687
Topo