了解按 Ctrl + 加号

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。

如果不是，请更详细地扩展您的问题描述。

了解按 Ctrl + 加号

Understanding press Ctrl + Plus

delphi