Привет народ!!!
на форме есть TpageControl с одной страницей (шаблонной) которая создаётся визуально.
задача при нажатии на кнопку создать TtabSheet на основе шаблонной.
делаю так :
var Ts_template:TtabSheet;
поэтому делаю так:
все хорошо но проблема в том что на этой шаблонной вкладке есть ещё один pageControl и соответственно чтобы перебрать его компоненты надо делать вложеный цикл опять по всем компонентам формы (ИМХО)Код:procedure TFRM_main.ToolButton1Click(Sender: TObject); var i,j,k:integer; p:TPageControl;t:TTabSheet; begin t:=TTabSheet.Create(self); with t do begin parent:=self; PageControl:=PC_Template; Caption:='unnamed'; for i:=0 to self.ComponentCount-1 do begin if (self.Components[i] is TPageControl) and ((self.Components[i] as TPageControl).Parent=TS_Template) then begin p:=TPageControl.Create(self); with p{TPageControl.Create(self) }do begin parent:=t;//TS_Template; Align:=alClient; for j:=0 to PageControl1.PageCount-1 do begin with TTabSheet.Create(self) do begin parent:=PageControl1; PageControl:=p; caption:=PageControl1.Pages[j].Caption; end; end; end; end; end; end; end;
или я опять лезу через форточку ...
как сделать перебор компонентов только TAbSheetа ??? какая функция возвращает компоненты PARENTом которых является заданный ?
заранее благодарен