D delphiland Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-23 #3 写一个类来封装不就好了吗 几个控件作为这个类的成员
无 无疯无禄 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-23 #4 控件数组??? 可以用TWinControl(Object).Tag 来实现类似的功能
S sundart Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-23 #7 写一个类来封装, 其它几个控件作为这个类的成员; 具体写要自己动手了. 在DFW上你可以找到思路.
C cowbird Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-24 #9 简单 type TCCLabelEdit = Class(TCustomControl) private FEdit:TEdit; FLabel:TLabel; protected ... end 不就又有Edit又有label了么
简单 type TCCLabelEdit = Class(TCustomControl) private FEdit:TEdit; FLabel:TLabel; protected ... end 不就又有Edit又有label了么
O only you Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-24 #10 看过delphi5开发指南这本书吗? 上面讲的很详细的
Q qd_chl Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-27 #14 如果你想自定义一个控件的话,可以考虑如下方法: type TMyControl = class(TWinControl) private MainPanel:TPanel; procedrue CreatMainPanel; ...{子控件声明} public constructor create; ... end; TMyControl .Create begin CreateMainPanel; {动态生成你需要的控件放在MainPanel上} end;
如果你想自定义一个控件的话,可以考虑如下方法: type TMyControl = class(TWinControl) private MainPanel:TPanel; procedrue CreatMainPanel; ...{子控件声明} public constructor create; ... end; TMyControl .Create begin CreateMainPanel; {动态生成你需要的控件放在MainPanel上} end;
X xue_fg Unregistered / Unconfirmed GUEST, unregistred user! 2003-01-02 #15 可是这样做的结果时,在设计期间,你不能控制中个控件,你会发现,下面的MainPanel不能移动,
Q qd_chl Unregistered / Unconfirmed GUEST, unregistred user! 2003-01-02 #16 可以的,不过要注意CreateMainPanel时MainPanel := TPanel.Create(self), self是控件对象实例
L lich Unregistered / Unconfirmed GUEST, unregistred user! 2003-11-04 #19 在你的对象的 published 部分声明属性,公开这几个对象 然后再调用 TComponent.SetSubComponent 就能满足你的要求了