全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1594
推到 Plurk!
推到 Facebook!

請教物件的位置問題

答題得分者是:pedro
blue
中階會員


發表:169
回覆:136
積分:81
註冊:2002-04-15

發送簡訊給我
#1 引用回覆 回覆 發表時間:2018-12-22 10:44:12 IP:125.227.xxx.xxx 未訂閱
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

發送簡訊給我
#2 引用回覆 回覆 發表時間:2018-12-27 20:56:05 IP:1.164.xxx.xxx 未訂閱
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,會是先產生的放在最頂端,
系統時間:2024-04-30 4:15:14
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!