Usar o CTRL, ALT e SHIFT do lado direito do teclado
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
Curtidas 0
Respostas
Nayane
01/02/2010
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;
GOSTEI 0