Usar o CTRL, ALT e SHIFT do lado direito do teclado

01/02/2010

1

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?
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;
Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira