|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2004/2/29 23:35:20 |
标题: |
用代码创建组件的问题!请高手指点! |
浏览:1133 |
|
加入我的收藏 |
楼主: |
我在程序中创建了一个TEdit 和 一个TUpDown组件的实例 Edit1、UpDown1,为了把UpDown1与 Edit1连接,我用以下代码:UpDown1.Associate:=Edit1; 编译时通过但运行时出错,请高手指点如何编码连接TEdit 和 TUpDown组件!!
----------------------------------------------
- |
作者: |
|
2004/3/1 1:13:43 |
1楼: |
是不是UpDown的实例在TEdit的实例之前创建了?
----------------------------------------------
-
|
作者: |
|
2004/3/1 1:14:56 |
1楼: |
procedure TForm1.Button1Click(Sender: TObject); var RTEdit1:TEdit; RTUpDown1:TUpDown; begin RTEdit1:=TEdit.Create(self); RTEdit1.Parent:=form1; RTEdit1.Top:=10; RTEdit1.Left:=10; RTUpDown1:=TUpDown.Create(self); RTUpDown1.Parent:=Form1; RTUpDown1.Associate:=RTEdit1; end; 这段代码我测试了一下是没有问题的。。。
----------------------------------------------
夫君子之行,静以修身,俭以养德.非澹泊无以明志, 非宁静无以致远.夫学须静也,才须学也,非学无以广才, 非志无以成学,淫漫则不能励精,险躁则不能治性,年与时驰, 意与日去,遂成枯落,多不接世,悲守穷庐,将复何及!
|
作者: |
|
2004/3/1 18:32:34 |
2楼: |
感谢朋友们回帖,我回去再试一试!!!!!!!!!!!! 我用的是TsuiEdit/TUpDown组件,与2楼朋友的编码差不多.
----------------------------------------------
-
|
作者: |
|
2004/3/1 23:19:45 |
3楼: |
感谢楼上的朋友,问题解决了,错在Parent属性在Associate属性后赋值了!!!
----------------------------------------------
-
|
|