如何獲取頁面控件上的元素？

Question

我正在使用Delphi 7.

假設我在窗體上有一個頁面控件。該頁面控件有兩個或三個選項卡。每個選項卡都有一些其他控件，如標籤，編輯等等。例如，如何獲取代碼中編輯的文本屬性？

Answer 1

，您仍然可以直接訪問TEDIT

Edit1.Text := 'My Edit box on a Tab'; 

Answer 2

使用其ControlCount和Controls屬性遍歷選項卡的控件。

for i := 0 to TabSheet.ControlCount-1 do 
begin 
    if TabSheet.Controls[i] is TEdit then 
    ShowMessage(TEdit(TabSheet.Controls[i]).Text); 
end; 

這將迭代選項卡中的所有直接子元素。如果你需要更深入地研究孩子的孩子，那麼你需要一個遞歸的解決方案。

如果你想在每個標籤頁中搜索，那麼你也需要遍歷它們。

for i := 0 to PageControl.PageCount-1 do 
    TabSheet := PageControl.Pages[i]; 
    for j := 0 to TabSheet.ControlCount-1 do 
    begin 
    if TabSheet.Controls[j] is TEdit then 
     ShowMessage(TEdit(TabSheet.Controls[j]).Text); 
    end;