Delphi如何实现用Ctrl+上下滚轮键放大RichView文档？

冥界3大法王 · 发表于 2023-1-4 18:21

procedure TMain_Form.RichViewEdit1MouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
  if (WheelDelta < 0) and (Shift = [ssCtrl]) then
  begin
ShowMessage('上滚轮');
  end
  else
  begin
ShowMessage('下滚轮');
  end;
end;

KSPprince · 发表于 2023-1-5 09:18

这不是RichView自带的功能吗，richtextbox都有这个功能

冥界3大法王 · 发表于 2023-1-5 16:25

KSPprince 发表于 2023-1-5 09:18
这不是RichView自带的功能吗，richtextbox都有这个功能

说错了。是高亮语法的那个
累似memo

帐号		自动登录	找回密码
密码			注册[Register]

[求助] Delphi如何实现用Ctrl+上下滚轮键 放大RichView文档？

[求助] Delphi如何实现用Ctrl+上下滚轮键放大RichView文档？