C
coolingxyz
Unregistered / Unconfirmed
GUEST, unregistred user!
unit mymb;
type
Tmymb = class(TWincontrol)
private
FPanel : TPanel;
public:
Property OnClick : TNotifyEvent read GetOnMbClick Write SetOnMbClick;
Procedure Tmymb.SetOnMbClick(Value : TNotifyEvent);
begin
FPanel.OnClick := Value;
end;
function Tmymb.GetOnMbClick : TNotifyEvent;
begin
Result := FPanel.OnClick ;
end;
//还有其他一些标准控件。
我这里只是重定向了Fpanel的onclick的事件，当我在主窗口中生成了一系列的mymb，要把mymb的序号赋值给mymb.Fpanel.tag := i; ，然后当点击的时候，mymb[TPanel(sender).Tag ]才能知道是哪个mymb被点击了。
应该怎么写才能使我的控件有自己的真正事件。
这样是不是能表示清楚一点，假设我的Tmymb 的结构是这样的：
Tmymb
{
Panel : Tpanel;
edit : Tedit;
}
窗体上生成了一系列的Tmymb 实例。
我现在单击的时候只能知道是哪个Tmymb里的Panel被单击了，那我是不能知道edit的一些属性的。
我现在想实现的就是要知道是哪个Tmymb 被单击了，那么我就能知道Panel 的属性，也能知道Edit的属性了。
这样可以了么？
请大家帮忙呀。
type
Tmymb = class(TWincontrol)
private
FPanel : TPanel;
public:
Property OnClick : TNotifyEvent read GetOnMbClick Write SetOnMbClick;
Procedure Tmymb.SetOnMbClick(Value : TNotifyEvent);
begin
FPanel.OnClick := Value;
end;
function Tmymb.GetOnMbClick : TNotifyEvent;
begin
Result := FPanel.OnClick ;
end;
//还有其他一些标准控件。
我这里只是重定向了Fpanel的onclick的事件，当我在主窗口中生成了一系列的mymb，要把mymb的序号赋值给mymb.Fpanel.tag := i; ，然后当点击的时候，mymb[TPanel(sender).Tag ]才能知道是哪个mymb被点击了。
应该怎么写才能使我的控件有自己的真正事件。
这样是不是能表示清楚一点，假设我的Tmymb 的结构是这样的：
Tmymb
{
Panel : Tpanel;
edit : Tedit;
}
窗体上生成了一系列的Tmymb 实例。
我现在单击的时候只能知道是哪个Tmymb里的Panel被单击了，那我是不能知道edit的一些属性的。
我现在想实现的就是要知道是哪个Tmymb 被单击了，那么我就能知道Panel 的属性，也能知道Edit的属性了。
这样可以了么？
请大家帮忙呀。