动态添加控件的问题；很急的！ 高手帮我！(100分)

魏

魏启明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-21

• #1

怎样在程序中通过语句 添加 和 删除 一个控件（可视控件如 Label 或 Button）；
要求可以控制控件的属性；如Height;left;caption;color;等等；
一切都通过语句实现；并要求可以去掉这些控件；

我需要通过读取数据库确定显示什么（不可预见）
高手帮我！

 

Y

yang_mis

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-21

• #2

var tem:tbutton;
begin
tem:=tbutton.Create(self);
tem.caption:='aa';
tem.height:=222;
tem.top:=1;
tem.left:=2;
tem.width:=33;
tem.parent:=form1;
end;
//del
tem.free;
应该可以了，不只对你有没有帮助？一般使用控件数组较好。。。。

 

吴

吴剑明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-21

• #3

控件也是对象啊,对象怎么建,它就怎么建.

 

W

wind2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-22

• #4

14.在程序中动态生成控件数组[2001-04-09]
var
a : array of TButton;
i : integer;
begin
SetLength(a,100); //分配内存,这里的100可以用变量来代替
for i := 0 to Length(a) - 1 do
Begin
a := TButton.Create(Form1);
with a do
begin
Parent := Form1;
Left := 0;
Height := 20;
Width := 108;
Top := i * 20;
Caption := 'a'+IntToStr(i);
OnClick := buttonclick; //点击事件
Show;
End;

procedure TForm1.ButtonClick(Sender: TObject);
begin
ShowMessage((Sender as TButton).Caption);
end;

欢迎光临『风之纹章』http://ph11.126.com

 

魏

魏启明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-22

• #5

太感动了；谢谢大家了；
我。。。。。。。。。

 

Z

zanpen2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-22

• #6

我来晚了，唉。。。

 

魏

魏启明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-22

• #7

to zanpen2001
不晚；
讨论未结束

 

魏

魏启明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-23

• #8

如何响应事件呢？

 

Z

zeewoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-23

• #9

tform1 = class(tform)
procedure Button1Click(Sender: TObject);
private
procedure MouseClick(Sender:TObject);
end;

procedure TForm1.MouseClick(Sender: TObject);
begin
showmessage('clicked');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
a:tbutton;
begin
a:=tbutton.create(self);
a.parent:=form1;
.... //略

a.OnClick:=MouseClick;
end;

 

魏

魏启明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-24

• #10

谢了！

 

魏

魏启明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-24

• #11

多人接受答案了。