PageControl

[_fynjy_]

Ребят, такая проблема:
вкладки у меня создаются по коду

Tab:TsTabSheet;
begin
  Tab:=TsTabSheet.Create(Self);
  Tab.Caption:='Íîâàÿ ñòðàíèöà  '+IntToStr(k)+'   ';
  k := k+1;
  Tab.PageControl:=sPageControl1;
  sPageControl1.ShowCloseBtns:=True;
  sRichEdit1 := TsRichEdit.Create(Self);
  sRichEdit1.Parent := Tab;
  sRichEdit1.Align:=alClient;
  sRichEdit1.Font:=sRichEditMain.Font;

и есть кнопка чтобы менять размер шрифта, её код

 
with sRichEdit1.SelAttributes do
  begin
   Size:=26;
  end;
end;

но при создании новой вкладки - предыдущая выдаёт ошибку когда меняю размер шрифта, почему так? и как исправить?
ошибка о том что не может навести фокус текста в неактивной вкладке

[Пепел Феникса]

рич эдит каждой вкладке тоже нужен свой вообще то.

[_fynjy_]

знаю, в этом и проблема, как сделать код чтобы был разный ритч, а то он sRichEdit1 перемещает на последнюю вкладку и на остальные не реагирует этот код

with sRichEdit1.SelAttributes do
  begin
   Size:=26;
  end;
end;

[program2001]

создай счётчик и после создания нового элемента делай sRichEdit1.name:=sRichEdit+countRic h;
P.S.:countRich - счётчик.

[Пепел Феникса]

создай счётчик и после создания нового элемента делай sRichEdit1.name:=sRichEdit+countRic h;
P.S.:countRich - счётчик.

и будешь лишь один рич.
нужно создавать для каждой вкладки свой рич.