控件位置确定(100分)

H

hnzgw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-06

• #1

最近编个系统时遇到个问题,根据数据库中的记录来生成控件时,控件的位置很难放好,
我的要求是比如有12个记录也即我要生成12对控件,每对是label edit,位置是每一行放
4对像下面一样:
label1 edit1,label2 edit2,label3 edit3,label4 edit4
label5 edit5,label6 edit6,label7 edit7,label8 edit8
label9 edit9,label10 edit10,label11 edit11,label12 edit12
请各位delphi高手帮忙,高手相送!!!!!!!!!!!!!!!

 

W

wangjiankang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-06

• #2

通过height,width得到窗体和空间的高度宽度，通过left,top修改个空间的位置，就OK了

 

Z

zsag

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-06

• #3

试一下：
var
lab: array[1..30] of tlabel;
ed: array[1..30] of tdbedit;
i:integer;

i:=0;
while not tab.eof do
begin
i:=i+1;
Lab := TLabel.Create(Self);
Lab.Parent := parent;
Lab.Caption := 'name';
Lab.Top := (i - 1) * 28;
Lab.left := 20;

ed := Tedit.Create(Self);
ed.Parent := parent;
ed.text := 'text';
ed.Top := (i-1) * 28;
ed.left := 200;
next;
end;

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #4

呵呵，你要是用 Delphi6，到 Additional 页(默认第二页)里面去看看 TLabeledEdit
就不用发愁了。

另外，只要你一行的四个方好了过后，选中它们，Ctrl + C，然后 Ctrl + V 就可以了

 

清

清嘴

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-22

• #5

发给你邮件了

 

H

hnzgw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-22

• #6

接受答案了.