動態產生元件後會無法再繼續產生 |
|
答題得分者是：RootKit
|
|
老大仔
尊榮會員   發表：78 回覆：837 積分：1088 註冊：2006-07-06 發送簡訊給我 |
是這樣子的~
我在ScrollBox中要產生一些元件(ex:TButton) 然後想要排個序讓它比較好看點 可是當我產生到第二個Button後 在產生第三個就沒辦法了 請問為什麼會這樣呢? 以下是簡短的程式~ [code delphi] var tt : TButton; begin if ScrollBox1.ControlCount = 0 then begin tt := TButton.Create(nil); tt.Parent := ScrollBox1; tt.Left := ScrollBox1.Left; end else begin tt := TButton.Create(nil); tt.Parent := ScrollBox1; tt.Left := (ScrollBox1.Controls[ScrollBox1.ControlCount-1] as TButton).Left (ScrollBox1.Controls[ScrollBox1.ControlCount-1] as TButton).Width; end; end; [/code] |
|
RootKit
資深會員 發表：16 回覆：358 積分：419 註冊：2008-01-02 發送簡訊給我 |
ScrollBox1.Controls[ScrollBox1.ControlCount-1] 最後一個物件，就是 剛建立的 tt
當然依照 tt 預設值為固定位置。 改成.. i := (ScrollBox1.Controls[ScrollBox1.ControlCount-1] as TButton).Left (ScrollBox1.Controls[ScrollBox1.ControlCount-1] as TButton).Width; tt := TButton.Create(nil); tt.Parent := ScrollBox1; tt.Left := i; 差一點被耍到了 .... |
|
老大仔
尊榮會員 發表：78 回覆：837 積分：1088 註冊：2006-07-06 發送簡訊給我 |
感謝RootKit大大
小弟瞭解了~^^ 我居然沒注意到這個小地方的錯誤>"< ===================引 用 RootKit 文 章=================== ScrollBox1.Controls[ScrollBox1.ControlCount-1] 最後一個物件，就是 剛建立的 tt 當然依照 tt 預設值為固定位置。 改成.. i := (ScrollBox1.Controls[ScrollBox1.ControlCount-1] as TButton).Left (ScrollBox1.Controls[ScrollBox1.ControlCount-1] as TButton).Width; tt := TButton.Create(nil); tt.Parent := ScrollBox1; tt.Left := i; 差一點被耍到了 .... <--我不是有意的  |
發表時間：2009-02-17 03:27:59
IP:59.114.xxx.xxx 未訂閱
系統時間：2024-04-20 5:34:06
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |