自定义控件中,包含一个Edit控件,加入了一个设置窗体,想通过双击Edit建立窗体,窗体关闭时把设置好的Edit的长宽返回给Edit.如何做呀 ( 积分: 50

X

xuegaoyili

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-12

• #1

自定义控件中,包含一个Edit控件,加入了一个设置窗体,想通过双击Edit建立窗体,窗体关闭时把设置好的Edit的长宽返回给Edit.如何做呀 ( 积分: 50 )<br />自定义控件中,包含一个Edit控件,加入了一个设置窗体,想通过双击Edit建立窗体,窗体关闭时把设置好的Edit的长宽返回给Edit.如何做呀

我在窗体的Create中通过TEdit(Sender).Width得到了Edit的长宽,现在的问题是,
设置修改完了后,如何再传给Edit呀.

注意:Edit不是那个自定义控件,而是那个自定义控件所包含的一个子控件

 

X

xuegaoyili

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-12

• #2

自定义控件中,包含一个Edit控件,加入了一个设置窗体,想通过双击Edit建立窗体,窗体关闭时把设置好的Edit的长宽返回给Edit.如何做呀

我在窗体的Create中通过TEdit(Sender).Width得到了Edit的长宽,现在的问题是,
设置修改完了后,如何再传给Edit呀.

注意:Edit不是那个自定义控件,而是那个自定义控件所包含的一个子控件

 

M

myclain

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-13

• #3

设置窗体的创建用
form1 := Tfrom.create(edit1);
form1.showmodal
if form1.modalresult = mrok then
edit.with := form1.//////

 

X

xuegaoyili

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-13

• #4

楼上的,你的方法实现了取得返回值...

现在我发现我原来理解的,在创建窗体的时候得到控件的长宽,还没有实现,
以你的代码为例的话,我想在form1中显示时就显示到edit1的当前长宽,如何
得到这些值

 

Z

zhoen889

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-13

• #5

在主程序中设置一个width:integer
然后width:=TEdit(Sender).Width;
这样不行吗？

 

X

xuegaoyili

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-14

• #6

自己做出来了.........
tmpfrm:=tform1.create
tmpfrm.seteditwidth.text:=inttostr(edit1.width);
tmpfrm.showmodel;
edit1.width:=strtoint(seteditwidth.text);

这样就能实现所有的属性访问.


555555555555555555555555