原始控件没有双击事件,我想为该控件增加一个双击事件,请问怎么编码啊,我是这样写的TMyGroupItem = class(TrzGroupItem)
private
FOnDblClick: TNotifyEvent;
published
property OnDblClick: TNotifyEvent read fOnDblClick write fOnDblClick;end;function CreateGroupItem(GroupNode:TRzGroup;GroupItemName:String):TMyGroupItem;
var
Item: TMyGroupItem ;
begin
Item:=GroupNode.Items.Add; (这里通不过,因为GroupNode.Items.Add增加的子节点的类型是原始类型TrzGroupItem)
Item.Caption:=GroupItemName;
Item.Tag:=2;
Item.ImageIndex:=2;
Item.OnClick:=ItemClick;
Result:= Item;
end;
private
FOnDblClick: TNotifyEvent;
published
property OnDblClick: TNotifyEvent read fOnDblClick write fOnDblClick;end;function CreateGroupItem(GroupNode:TRzGroup;GroupItemName:String):TMyGroupItem;
var
Item: TMyGroupItem ;
begin
Item:=GroupNode.Items.Add; (这里通不过,因为GroupNode.Items.Add增加的子节点的类型是原始类型TrzGroupItem)
Item.Caption:=GroupItemName;
Item.Tag:=2;
Item.ImageIndex:=2;
Item.OnClick:=ItemClick;
Result:= Item;
end;
解决方案 »
- 工程单元中的变量在其它单元中如何使用?
- 编译提示 EDOMParseError 未定义 已经引用unit DB
- 疑难问题:在程序运行中,有时会出现:System Error . Code: 5 拒绝访问 ,请问是什么意思,如何解决呀???
- 帮我,运行程序后先是公司系统名称几秒在运行主程序怎么做?
- 我的程序是在1024*768在下做的,到了800*600有一些按扭就被遮了。
- 打印图表该怎么办?D7有招儿吗
- sql 表中默认的空值是<null> select * frome table where note=null 不行,该怎么办呢〉?
- 我的系统该为多层结构时,能有什么好处?
- tcp 外文文献
- 简单问题:在delphi中怎样得到应用程序启动时的参数字符串?谢谢
- TreeView的Moveto方法问题
- vfp日期型数据更新出错,请问如何写更新语句
正如我们可以说鸟是一种动物,而不能说动物是一种鸟。
TMyGroupItem是一种TrzGroupItem,而TrzGroupItem不是一种TMyGroupItem。
var
myitem: TMyGroupItem;
begin
myitem := TMyGroupItem.Create(RzGroup1.Items);
end;
就可以了~