再請教有關TabOrder的問題 |
|
答題得分者是：timhuang
|
|
ivankuo
中階會員   發表：132 回覆：272 積分：95 註冊：2002-11-21 發送簡訊給我 |
小弟遇到一個問題，我的pageControl有好幾個tabsheet，我的元件都是runtime時期才產生的，假設我的tabsheet 1 內擁有taborder的屬性的元件有10個，但是我在判斷
var
L:TList;
TabSheet1.gettaborderlist(L);
L.count 時卻有13個， 我找不出哪裡有另外多的3個
此問題只發生在第一個tabsheel 1 , 其他的tabsheet 不會發生
，請問有何方式可以查出那多的3個擁有taborder屬性的元件ㄇ??
------
ivankuo |
|
timhuang
尊榮會員 發表：78 回覆：1815 積分：1608 註冊：2002-07-15 發送簡訊給我 |
hi, 你可以利用 TComponent(L.Item[i]).Name 來取得該 component 的名稱.
但先決條件是你動態建立的元件必須給定名稱, 如此一來就可以知道多出來的
三個為何!!
procedure TForm1.Button2Click(Sender: TObject);
var
l: TList;
i: integer;
begin
l:= TList.Create ;
tabsheet1.GetTabOrderList(l);
for i:= 0 to l.Count -1 do
showmessage(TComponent(l.Items[i]).Name);
l.Free;
end;
|
|
ivankuo
中階會員 發表：132 回覆：272 積分：95 註冊：2002-11-21 發送簡訊給我 |
|
|
ccchen
版主 發表：61 回覆：940 積分：1394 註冊：2002-04-15 發送簡訊給我 |
|
|
ivankuo
中階會員 發表：132 回覆：272 積分：95 註冊：2002-11-21 發送簡訊給我 |
|
|
timhuang
尊榮會員 發表：78 回覆：1815 積分：1608 註冊：2002-07-15 發送簡訊給我 |
|
|
ivankuo
中階會員 發表：132 回覆：272 積分：95 註冊：2002-11-21 發送簡訊給我 |
|
|
danny
版主 發表：100 回覆：522 積分：595 註冊：2002-03-11 發送簡訊給我 |
引言: 小弟遇到一個問題，我的pageControl有好幾個tabsheet，我的元件都是runtime時期才產生的，假設我的tabsheet 1 內擁有taborder的屬性的元件有10個，但是我在判斷 var L:TList; TabSheet1.gettaborderlist(L); L.count 時卻有13個， 我找不出哪裡有另外多的3個 此問題只發生在第一個tabsheel 1 , 其他的tabsheet 不會發生 ，請問有何方式可以查出那多的3個擁有taborder屬性的元件ㄇ??因為 TabOrder 是實作在 TWinControl, 所以只要判斷是不是TWinControl就可以知道有沒有 TabOrder 屬性, 程式碼如下:
var i: Integer;
begin
for i := 0 to TabSheet1.ControlCount -1 do
begin
if (TabSheet1.Controls[i] is TWinControl) then
ShowMessage(TabSheet1.Controls[i].Name ':我有TabOrder');
end;
end;
------
將問題盡快結案也是一種禮貌! |
|
ivankuo
中階會員 發表：132 回覆：272 積分：95 註冊：2002-11-21 發送簡訊給我 |
發表時間：2003-03-06 18:32:39
IP:61.220.xxx.xxx 未訂閱
系統時間：2024-05-15 4:36:24
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |