Разный шрифт [Delphi 7]

[_fynjy_]

Ребят, есть такая проблема, в окне richedit задан шрифт 12 Calibri, при создании новой вкладки в PageControl через кнопку, он создаёт richedit но с другим шрифтом, я прописал в кнопку чтобы задавал параметры имени шрифта

var Calibri:TFontName;
begin
sRichEdit1.Font.Name:=TFontName(Self);

но он делает маленький шрифт, я задал параметры шрифта

var Calibri:TFontName;
begin
sRichEdit1.Font.Name:=TFontName(Self);
sRichEdit1.Font.Size:=12;

но размер шрифта не совпадает с предыдущей вкладкой, почему так?

[Valio]

А почему не присвоить новому РичЕдиту параметры шрифта с исходного РичЕдита?

sRichEdit1.Font := sRichEditMain.Font;

[_fynjy_]

пробовал, не робит

var Sheet:TTabSheet;
begin
with TsRichEdit.Create(Self) do
  begin
  Sheet:=TsTabSheet.Create(sPageControl1);
Sheet.Caption:='Новая страница  '+IntToStr(sPageControl1.PageCount)+'   ';
Sheet.PageControl:=sPageControl1;
sRichEdit1 := TsRichEdit.Create(Self);
sRichEdit1.Parent := Sheet;
sRichEdit1.Align:=alClient;
sRichEdit1.Font:=sRichEdit1.Font;

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

[_fynjy_]

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

[_fynjy_]

хотя можно главный пример скрыть

[Valio]

Сообщение от _fynjy_

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

А почему раньше не работало?

[_fynjy_]

щас уже всё заработало, спасибо