DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: liugggggxxxxx
今日帖子: 34
在线用户: 16
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 guxiang (guxiang) ★☆☆☆☆ -
盒子活跃会员
2019/9/9 0:42:07
标题:
关于memo控件的scrollbar的问题 浏览:186
加入我的收藏
楼主: 在memo中设置scrollbar为vertical后就可以用鼠标滚轮来上下滚动内容了,但是同时又不想显示右边的滚动条,有什么办法吗?
----------------------------------------------
-
作者:
男 dlfsystem (dlfsystem) ★☆☆☆☆ -
盒子活跃会员
2019/9/9 10:31:46
1楼: 你如果是产品经理的话,工程师要估计暴走了
----------------------------------------------
-
作者:
男 wang_80919 (Flying Wang) ▲▲▲▲▲ -
普通会员
2019/9/9 10:48:48
2楼: 其实吧 给 500万人民币,就可以做到了。
多费点脑细胞而已。
要价500万是因为,这种事情,不应该做。浪费。
既然是浪费,就应该叫提需求的人,高价补偿。
----------------------------------------------
(C)(P)Flying Wang
作者:
男 abcjingtong (jingtong) ▲▲▲▲▲ -
注册会员
2019/9/9 10:50:38
3楼: 试试鼠标滚轮时,发送滚动条消息
----------------------------------------------
18114532@qq.com
作者:
男 iamdream (银河恒久远,梦想无止境!) ★☆☆☆☆ -
大贡献会员
2019/9/9 10:53:38
3楼: 需要自己处理鼠标滚轮的滚动消息:
1、Memo.ScrollBars设为ssNone;
2、在窗口代码中加上变量及消息函数:
    FOldWndMethod: TWndMethod;
    procedure MemoProc(var Msg: TMessage);
//...
procedure TForm1.MemoProc(var Msg: TMessage);
var
  WheelDelta: SmallInt;
begin
 if (Msg.Msg = WM_MouseWheel) then begin
    WheelDelta := SmallInt(HiWord(Msg.WParam)) div WHEEL_DELTA;
    Memo1.CaretPos := Point(Memo1.CaretPos.X, Memo1.CaretPos.Y - WheelDelta);
    memo1.Perform(EM_SCROLLCARET, 0, 0);
    Msg.Result := 0;
    Exit;
 end;

  FOldWndMethod(Msg);
end;
3、在FormCreate/FormDestroy中分别处理一下Memo.WindowProc:
procedure TForm1.FormCreate(Sender: TObject);
begin
  FOldWndMethod := Memo1.WindowProc;
  Memo1.WindowProc := Self.MemoProc;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Memo1.WindowProc := FOldWndMethod;
end;
----------------------------------------------
-广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 博客挂了……
作者:
男 helyna (Person) ▲▲▲▲▲ -
注册会员
2019/9/9 11:55:49
4楼: 找个panel把memo右边遮住
----------------------------------------------
-
作者:
男 omvm ( ) ★☆☆☆☆ -
盒子活跃会员
2019/9/9 22:18:35
5楼: 其实很简单
----------------------------------------------
-
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v2.1 版权所有 页面执行31.25毫秒 RSS