控件制作中如何在父类窗体中动态创建控件(50分)

X

xuyingfeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-17

• #1

例如在一个新的label中要创建一个父类窗体的子窗体form;
请问怎么办？

 

烦

烦心果

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-17

• #2

说清楚点好吗？我很笨，不太明白。

 

L

lslzf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-17

• #3

我也没有看懂

 

X

xuyingfeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-17

• #4

我自己做了一个控件（类名为Toplabel）是从Tlabel续承的，我想在这个控件里添加添加一个过程
这个过程可以产生出父窗体下的控件，比如：在一个from（form1）里放上了一个(oplabel),当我点击这个oplabel时
就可以在form1上产生一个新控件(比如一个button)(或者一个新的form)

 

X

xuyingfeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-17

• #5

请回答

 

X

xuyingfeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-20

• #6

谁能回答给另加一百分

 

L

liao6373

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-20

• #7

unit Toplabel
........
TToplabel=class(TLabel)
private
....
public
constructor Create(AOwner:TComponent);override;
end;
...........
constructor Create(AOwner:TComponent);
var
AButton:TButton;
begin
inherited;
AButton := TButton.Create(AOwner);
AButton.Name := 'MyButton';
AButton.Parent := AOwner;
AButton.Top := 20;
AButton.Left := 20;
AButton.Width := 100;
AButton.Height := 30;
AButton.Caption := 'Button';
end;

 

L

liao6373

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-20

• #8

如果是在单击TopLabel时产生TButton，那么就在TTopLabel的Click过程中添加上述代码

 

X

xuyingfeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-21

• #9

接受答案了.