了解按Ctrl + Plus

Question

procedure TformMain.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = VK_ADD) and (Shift = [ssCtrl]) then
  begin
    ShowMessage('Zoom In');
  end;

end;

我正在尝试使用键盘放大和缩小（ ctrl + + 和 ctrl + - ）

我写了这样的代码： How to detect ctrl-t keypress in Delphi

但它不起作用，我该如何解决？

Answer 1

您并未明确说明it does not work的确切方式，但对于初学者，请确保您在表单上将KeyPreview设置为true。

如果不是这样，请更详细地扩展您的问题说明。