如何動態產生物件, 並用 ALIGN := alTop 能一個接一個排下來?

目前是建立物件並指定到 parent 可以,
但 Align := alTop 都會無視之前所產生的物件, 而放到之前產生物件的上頭..
想要做到的是
1
2
3
4
5
照順序產生, 並一個疊一個..

但現在卻變成
5
4
3
2
1

後面產生的物件無視之前產生物件, 放到 top 而自動把之前產生的物件往下擠了.

請問有什麼方法可以解決這個問題嗎?

這樣排列很正常啊
把加入順序反過來不就行了？

------
歡迎參訪 "腦殘賤貓的備忘錄" http://maolaoda.blogspot.com/

因為我是動態隨機產生的,
並不是一開始就知道要建5 個

發現一個無法理解的情況,
若設為 alBottom, 就又能疊到之前建立物件的上頭, 而不是插隊排在最下面...
@@?

所以，你可能要自行維護一個 Align = alTop 的控制項清單。
當新的控制項加入時，先把清單中的控制項全部 Align := alNone
再一一的把清單中的控制項 Align := alTop (或是反向順序? 這要試了才會知道)

------
歡迎參訪 "腦殘賤貓的備忘錄" http://maolaoda.blogspot.com/

需先將後來產生的物件置於 前一物件的下方
在使用Align:=alTop
<textarea class="delphi" rows="10" cols="60" name="code">procedure TForm1.FormCreate(Sender: TObject); var edits : Array of TEdit; i:integer; begin setlength(edits,5); for i:=Low(edits) to High(edits) do begin edits[i] := TEdit.Create(self); if (i=Low(edits)) then begin edits[i].Top := self.Top; edits[i].Height := 20; edits[i].Text := IntToStr(i); end else begin edits[i].Top := edits[i-1].Top edits[i-1].Height; edits[i].Height := 20; edits[i].Text := IntToStr(i); end; edits[i].Align := alTop; edits[i].Parent := self; end; end; </textarea>

------
先查HELP
再查GOOGLE
最後才發問

沒人有義務替你解答問題
在標題或文章中標明很急
並不會增加網友回答速度

Developing Tool:
1.Delphi 6
2.Visual Studio 2005
3.Visual Studio 2008
DBMS:
MS-SQL

That's great.
eaglewolf 的方法有效! ^^

感謝!