如何继承TLabel的事件?

surfman 2000-08-16 09:47:00
1)继承TLabel,动态生成自己的MyLabel(代码如下),但如何继承TLabel的事件比如DOUBLECLICK,当点击某个MyLabel时,产生与之对应的事件。并且当MOUSE移到它们上面时,闪动该Label。
newlable := TLabel.Create(Label1);
with newlable do
begin
parentColor :=false;
ParentFont := false;
newlable.Caption := Selected.Text ;
newlable.Name :='newlable'+IntToStr(label_num) ;
newlable.Enabled := false;
newlable.ShowHint :=true;
parent:= Panel4;

2)如何做象DELPHI中的运行按钮那样,可以拉下显示多个内容?
3)如何做一个比较通用的报表,请高手指点。
...全文
88 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
alin 2000-08-16
  • 打赏
  • 举报
回复
最简单的方法
1、先放一个TLABLE,生成DOUBLECLICK事件,
2、删除该TABLE,保留事件,
procedure TForm1.Label1DblClick(Sender: TObject);
begin
//啥啥啥啥啥啥啥
end;

3、 newlable.Enabled := false;
newlable.ShowHint :=true;
newlable.OnDoubleClick :=Label1DblClick;//其它事件也如此
parent:= Panel4;

用TOOLBAR可作到 2)的内容

kxy 2000-08-16
  • 打赏
  • 举报
回复
)继承TLabel,动态生成自己的MyLabel(代码如下),但如何继承TLabel的事件比如DOUBLECLICK,当点击某个MyLabel时,产生与之对应的事件。并且当MOUSE移到它们上面时,闪动该Label。
newlable := TLabel.Create(Label1);
with newlable do
begin
parentColor :=false;
ParentFont := false;
newlable.Caption := Selected.Text ;
newlable.Name :='newlable'+IntToStr(label_num) ;
newlable.Enabled := false;
newlable.ShowHint :=true;
parent:= Panel4;

??继承??,这样叫继承??
mrlining 2000-08-16
  • 打赏
  • 举报
回复
newlabel.ondoubleclick:=Mydoubleclick....
Mydoubleclick是自定义过程,形式和Label的Doubleclick事件过程一样,你可以将代码加到
Mydoubleclick中。一切 OK!!!
surfman 2000-08-16
  • 打赏
  • 举报
回复
sorry,它不是继承

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧