請教個位高手: 小弟有一個問題,因為sql語法如下: SELECT CODE,COUNT(ITEM) FROM PROCUDT GROUP BY CODE ; 就是 A01 | 2 項 A02 | 4 項 A03 | 2 項 . . 我想讓程式動態產成元件時排列成如下: 產品類別 品 項 ----------------- A01 | 第一項 ____| 第二項 A02 | 第一項 ____| 第二項 ____| 第三項 ____| 第四項 A03 | 第一項 ____| 第二項 我應該如何控制其產品類別的TOP?

您好： 產品類別的TOP不就等於 第二個LABEL的top ＝ 第一個LABEL的top+項數*第一個LABEL的高 ~~應無所住而生其心~~

如terrychen所言無誤,可是我是動態產生的物件,我應該如何將前一個label的top及height抓出來？謝謝！

您好： 第一個LABEL的top及height應該是您給定的吧 每一個LABEL的height應該也是固定值 ~~應無所住而生其心~~

procedure TF01.CreateLabel(L,T,W,H:integer;N,C:string);//動態產生物件 var obj:TLabel; begin obj:=TLabel.create(self); obj.left:=L; obj.top:=T;//把上一個的top跟height先存起來，再加起來丟進來 obj.width:=W; obj.height:=H; obj.Name:=N; end; 試試看

引言: procedure TF01.CreateLabel(L,T,W,H:integer;N,C:string);//動態產生物件 var obj:TLabel; begin obj:=TLabel.create(self); obj.left:=L; obj.top:=T;//把上一個的top跟height先存起來，再加起來丟進來 obj.width:=W; obj.height:=H; obj.Name:=N; end; 試試看

//傳入index值吧.. Const DefTop = 50; DefLeft = 50; DefHeight = 50; //預設間隔 function TForm1.CreateObj(Index:Integer;Const Str:String):TLabel; begin Result:=TLabel.Create(Self); With Result do begin Parent:=Self; Top :=DefTop Index*DefHeight; Left :=DefLeft; Caption:=Str; end; end;