請教物件的位置問題 |
答題得分者是:pedro
|
blue
中階會員 ![]() ![]() ![]() 發表:170 回覆:136 積分:81 註冊:2002-04-15 發送簡訊給我 |
Hi,各位先進大家好:
在設計時將物件產生並設Align=alTop,會是先產生的放在最頂端, 可是如下程式,其順序卻是顛倒了, 為何?謝謝! procedure TForm1.Button1Click(Sender: TObject); var sbBox: TScrollBox; lblBox: TLabel; i: Integer; begin for i := 1 to 5 do begin sbBox := TScrollBox.Create(Self); sbBox.Parent := Self; sbBox.Align := alTop; lblBox := TLabel.Create(Self); lblBox.Parent := sbBox; lblBox.Caption := IntToStr(i); end; end; |
pedro
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:152 回覆:1187 積分:892 註冊:2002-06-12 發送簡訊給我 |
Hi blue,
實驗的結果, 置頂的方式剛好相反, 也許用另一種方式置頂? [code delphi] procedure TForm1.Button1Click(Sender: TObject); var sbBox: array[0..5] of TScrollBox; lblBox: TLabel; i: Integer; begin for i := 1 to 5 do begin sbBox[i] := TScrollBox.Create(Self); sbBox[i].Parent := Self; //sbBox[i].Align := alTop; lblBox := TLabel.Create(Self); lblBox.Parent := sbBox[i]; lblBox.Caption := IntToStr(i); end; for i:=5 downto 1 do begin sbbox[i].Align:=alTop; end; end; [/code] ===================引 用 blue 文 章=================== Hi,各位先進大家好: 在設計時將物件產生並設Align=alTop,會是先產生的放在最頂端, |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |