H hanqiqi520 Unregistered / Unconfirmed GUEST, unregistred user! 2010-03-10 #1 自定义控件MySelf从TDBLookupComboBox类继承下来,在MySelf内部创建了一个TEdit控件。在我的自定义控件MySelf的事件列表中只能看见TDBLookupComboBox的事件,而看不到TEdit控件的事件;怎模样才能把TEdit控件也显示在事件列表中呢
自定义控件MySelf从TDBLookupComboBox类继承下来,在MySelf内部创建了一个TEdit控件。在我的自定义控件MySelf的事件列表中只能看见TDBLookupComboBox的事件,而看不到TEdit控件的事件;怎模样才能把TEdit控件也显示在事件列表中呢
Z zhengrong117 Unregistered / Unconfirmed GUEST, unregistred user! 2010-03-10 #2 constructor ....... Edit:=TEdit.create Edit.Parent := Edit.OnClick :=MyEditOnClick //外部调用MyEditOnClick
constructor ....... Edit:=TEdit.create Edit.Parent := Edit.OnClick :=MyEditOnClick //外部调用MyEditOnClick
Z zhengrong117 Unregistered / Unconfirmed GUEST, unregistred user! 2010-03-10 #4 type TMyDBComboBox = class(TDBComboBox) protected Fedit:Tedit; public published property Edit: Tedit read Fedit write Fedit; end;// 你是不是想实现这个样子的 MyDBComboBox 的Edit属性关联上一个Edit后,属性列表的Edit就变成+,可以展开的
type TMyDBComboBox = class(TDBComboBox) protected Fedit:Tedit; public published property Edit: Tedit read Fedit write Fedit; end;// 你是不是想实现这个样子的 MyDBComboBox 的Edit属性关联上一个Edit后,属性列表的Edit就变成+,可以展开的
B bahamut8348 Unregistered / Unconfirmed GUEST, unregistred user! 2010-03-10 #5 你是要添加事件还是要在属性窗口看到EDIT?如果是要在属性窗口看到EDIT的话,直接发布一个TEDIT类型的属性就好了,记得放在published域如果要加事件也一样的道理type xxx = class(...) ... published property xxx: TEdit read.... // 属性添加 property ...: TNotify read .... // 事件添加 end;
你是要添加事件还是要在属性窗口看到EDIT?如果是要在属性窗口看到EDIT的话,直接发布一个TEDIT类型的属性就好了,记得放在published域如果要加事件也一样的道理type xxx = class(...) ... published property xxx: TEdit read.... // 属性添加 property ...: TNotify read .... // 事件添加 end;