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

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

Delphi如何实现用Ctrl+上下滚轮键 放大RichView文档？{:301_974:}

https://static.52pojie.cn/static/image/hrline/1.gif


procedure TMain_Form.RichViewEdit1MouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
if (WheelDelta < 0) and (Shift = ) 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
页: [1]
查看完整版本: Delphi如何实现用Ctrl+上下滚轮键 放大RichView文档？


免责声明：
吾爱破解所发布的一切破解补丁、注册机和注册信息及软件的解密分析文章仅限用于学习和研究目的；不得将上述内容用于商业或者非法用途，否则，一切后果请用户自负。本站信息来自网络，版权争议与本站无关。您必须在下载后的24个小时之内，从您的电脑中彻底删除上述内容。如果您喜欢该程序，请支持正版软件，购买注册，得到更好的正版服务。如有侵权请邮件与我们联系处理。

Mail To:Service@52pojie.cn