Как добраться до элементов управления страницей?

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;