如何在动态创建的frame类中实现响应鼠标滚轮事件
1个回答
2017-02-13 · 百度知道合伙人官方认证企业
育知同创教育
1【专注：Python+人工智能|Java大数据|HTML5培训】 2【免费提供名师直播课堂、公开课及视频教程】 3【地址：北京市昌平区三旗百汇物美大卖场2层，微信公众号：yuzhitc】
向TA提问
关注
![]()
展开全部
之前在网上找了一圈,发现都无法解决这个问题,主要就是因为frame是动态创建的
一下是创建的代码:
procedure tmainpage.picframe; //创建照片显示界面
begin
if Assigned(showpic) then showpic.Free;
showpic:=tframe.Create(self);
showpic.Name:='showpicform';
showpic.Hide;
showpic.Parent:=panel2;
showpic.Align:=alclient;
showpic.AutoScroll:=true;
showpic.Show;
end;
创建这样的一个frame是为了动态显示很多很多照片用的,因为照片很多,浏览的时候如果不用鼠标滚轮的话太过于麻烦了,所以想实现鼠标滚轮的功能,可是找了一圈没找到真正可以实现功能的方法
一下是创建的代码:
procedure tmainpage.picframe; //创建照片显示界面
begin
if Assigned(showpic) then showpic.Free;
showpic:=tframe.Create(self);
showpic.Name:='showpicform';
showpic.Hide;
showpic.Parent:=panel2;
showpic.Align:=alclient;
showpic.AutoScroll:=true;
showpic.Show;
end;
创建这样的一个frame是为了动态显示很多很多照片用的,因为照片很多,浏览的时候如果不用鼠标滚轮的话太过于麻烦了,所以想实现鼠标滚轮的功能,可是找了一圈没找到真正可以实现功能的方法
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
