求教多类组合的构件中的某一具体类的事件的编写 ( 积分: 100 )

写了一个酒店房间的构件，大概结构如下：
TRoom = Class(TPanel)//表示具体的房间，有很多房间
....................
THall = Class(TScroll)//表示楼房，是房间的容器
....................
procedure Register;
begin
RegisterComponents('Standard', [THall]); //注册该构件
end;
问题：
我现在需要把点击具体房间的双击事件重载后在这个构件中显示出来，如何显示？也就是说，当构件完成了后，在该构件的事件中，应该看到OnRoomDblClick事件，并能在该事件中访问相关的房间信息。谢谢解答

写了一个酒店房间的构件，大概结构如下：
TRoom = Class(TPanel)//表示具体的房间，有很多房间
....................
THall = Class(TScroll)//表示楼房，是房间的容器
....................
procedure Register;
begin
RegisterComponents('Standard', [THall]); //注册该构件
end;
问题：
我现在需要把点击具体房间的双击事件重载后在这个构件中显示出来，如何显示？也就是说，当构件完成了后，在该构件的事件中，应该看到OnRoomDblClick事件，并能在该事件中访问相关的房间信息。谢谢解答

解决了，结束

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1982458