Usar o CTRL, ALT e SHIFT do lado direito do teclado
01/02/2010
0
coloquei a propriedade do form KeyPreview = True
E no evento OnKeyDown:
Case Key of
VK_RMENU: BBEditarClick(BBEditar);
VK_RCONTROL : BBAtualizarClick(BBAtualizar);
VK_RSHIFT: BBSalvarClick(BBSalvar);
end
Só que não acontece nada. O que falta?
E no evento OnKeyDown:
Case Key of
VK_RMENU: BBEditarClick(BBEditar);
VK_RCONTROL : BBAtualizarClick(BBAtualizar);
VK_RSHIFT: BBSalvarClick(BBSalvar);
end
Só que não acontece nada. O que falta?
Leandro Carvalho
Curtir tópico
+ 0
Responder
Posts
03/02/2010
Nayane
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Shift = [ssCtrl,ssAlt,ssShift]) then
begin
ShowMessage('Teclas "Control + Alt + Shift" pressionadas!');
end;
end;
Shift: TShiftState);
begin
if (Shift = [ssCtrl,ssAlt,ssShift]) then
begin
ShowMessage('Teclas "Control + Alt + Shift" pressionadas!');
end;
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)