能自制这样的组件吗?急急急!!!(50分)

  • 主题发起人 主题发起人 gongminxia
  • 开始时间 开始时间
G

gongminxia

Unregistered / Unconfirmed
GUEST, unregistred user!
我现在要自制这样的组件,有form窗体,但是自制组件的基类没有TForm的,所以我只能从
TComponent继承,TComponent中引入窗体单元,但是这样就使得组件为设计态非可是组件,
所以我现在的问题是:如何创建设计态可视的带窗体的组件???谢谢!!!
 
用active form.
1.new| active libaray
2.new| activeform
3.设计该activeform,象设计active控件一样添加属性、事件、方法。
4.run|register active servers生成ocx文件
5.用component|import active control将该控件导入delphi.
 
TPasswordDlg=class(TForm)
......
end;

TPasswordDialog(TComponent)
private
PasswordDlg:TPasswordDlg;
...
end
 
TForm derived from TScrollingWinControl,maybe you can think on this way.
 
检测组件状态,在 ComponentState=csDesigning时,
把窗体Show()出来。
 
多人接受答案了。
 
后退
顶部