Função que verifica se uma tecla está pressionada.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| // É necessário estar declarado Windows na seção uses.
// Em versões mais recentes, declare System.Windows.
function IsKeyDown(const Key: Integer): Boolean;
begin
Result := GetKeyState(Key) and 128 > 0;
end;
{$R *.dfm}
// Exemplo de uso.
procedure TForm1.Button1Click(Sender: TObject);
begin
if IsKeyDown(VK_CONTROL) then
ShowMessage('Ctrl pressionado')
else
ShowMessage('Ctrl solto');
end; |
// É necessário estar declarado Windows na seção uses.
// Em versões mais recentes, declare System.Windows.
function IsKeyDown(const Key: Integer): Boolean;
begin
Result := GetKeyState(Key) and 128 > 0;
end;
{$R *.dfm}
// Exemplo de uso.
procedure TForm1.Button1Click(Sender: TObject);
begin
if IsKeyDown(VK_CONTROL) then
ShowMessage('Ctrl pressionado')
else
ShowMessage('Ctrl solto');
end;
Post Views: 3.636
-
InfusTec
-
- 0 comentários
- 10 de março de 2015
