請問TTabSheet內之物件如何讀取 |
|
尚未結案
|
|
shing.net
中階會員   發表：207 回覆：124 積分：66 註冊：2002-03-16 發送簡訊給我 |
|
|
ccchen
版主 發表：61 回覆：940 積分：1394 註冊：2002-04-15 發送簡訊給我 |
|
|
shing.net
中階會員 發表：207 回覆：124 積分：66 註冊：2002-03-16 發送簡訊給我 |
引言: Components Array是指以此Component為owner之所有component 由於DesignTime放入之元件均以Form為owner故, 全在Form之Components內,不會在其他任何container內 你可用Controls Array--指以此Control為parent之所有control (i,e)--Controlcount及controls[i]謝謝你 因為我是在runtime中產生TabSheet其內之物件是否在Controls Array中 因為我還是找不到TabSheet其內之物件 |
|
Miles
尊榮會員 發表：27 回覆：662 積分：622 註冊：2002-07-12 發送簡訊給我 |
Hello shing.net 兄您好 :
我做了一個試驗程式可以讀出裡面的元件,
看是否哪裡遇到問題.
先放一個TPageControl在Form上面
procedure TForm1.Button1Click(Sender: TObject);
var j : integer;
MyTab : TTabSheet;
MyEdit1, MyEdit2, MyEdit3 : TEdit;
begin
inc(i); // i 為全域變數
MyTab := TTabSheet.Create(PageControl1);
MyTab.Caption := IntToStr(i);
MyEdit1 := TEdit.Create(Self);
MyEdit1.Left := 10;
MyEdit1.Top := 10;
MyEdit1.Parent := MyTab;
MyEdit1.Name := 'MyEdit1';
MyEdit2 := TEdit.Create(Self);
MyEdit2.Left := 10;
MyEdit2.Top := 30;
MyEdit2.Parent := MyTab;
MyEdit2.Name := 'MyEdit2';
MyEdit3 := TEdit.Create(Self);
MyEdit3.Left := 10;
MyEdit3.Top := 50;
MyEdit3.Parent := MyTab;
MyEdit3.Name := 'MyEdit3';
MyTab.PageControl := PageControl1;
for j := 0 to MyTab.ControlCount - 1 do begin
if MyTab.Controls[j] is TEdit then
ShowMessage(MyTab.Controls[j].Name);
end;
end;
------
我不是高手, 高手是正在銀幕前微笑的人. |
|
ccchen
版主 發表：61 回覆：940 積分：1394 註冊：2002-04-15 發送簡訊給我 |
|
|
kj68215
初階會員 發表：47 回覆：91 積分：27 註冊：2003-08-09 發送簡訊給我 |
引言:
Hello shing.net 兄您好 :
我做了一個試驗程式可以讀出裡面的元件,
看是否哪裡遇到問題.
var j : integer;//改成→i,j : integer;
否則會出現[Error] Unit1.pas(33): Undeclared identifier: 'i' -----------------------
請多多指教啦!!^^
------
----------------------- 請多多指教啦!!^^ |
發表時間：2002-10-29 11:58:14
IP:211.74.xxx.xxx 未訂閱
系統時間：2024-05-03 11:13:43
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |