高手来帮我看看这个问题该怎么解决啊?(100分)

H

haifeilong1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-31

• #1

我想动态创建一组按钮!所创建的按钮的数量根据某个数据表记录的数量而定,如:用户表里面有 用户1,用户2,用户3 三条记录,系统自动创建三个按钮,其按钮Caption相对应 用户1,用户2,用户3,并进行按钮相应的顺序排列,以此类推!
请高手帮帮忙!谢谢了.....

 

H

haifeilong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-31

• #2

类似于QQ软件的好友列表界面!

 

N

nicai_wgl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-01

• #3

var
tmpPBt: PTButton;
begin
....
Query.Open;
Query.First;
while not Query.Eof do
begin
tmpPBt^ := TButton.Create(Self);
tmpPBt^.Parent := Panel1;
tmpPBt^.Caption := fieldbyname('用户').asString;
tmpPBt^.Left := 10;
tmpPBt^.Top := 10;
....
end;
...
end;

 

D

dey-999

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-01

• #4

var
tmpPBt: TButton;
begin
....
Query.Open;
Query.First;
while not Query.Eof do
begin
tmpPBt := TButton.Create(Self);
tmpPBt.Parent := Panel1;
tmpPBt.Caption := fieldbyname('用户').asString;
tmpPBt.Left := 10;
tmpPBt.Top := 10;
tmpPBt.OnClick:=Button1Click;//Button1Click可以为统一单击函数
....
end;
...
end;

 

H

huzhicheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-01

• #5

楼上是对的，最多就再根据要求计算一下按钮大小和位置就可以了

 

网

网中戏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-01

• #6

正确