[R.D.Ice]

На форме Pagecontroll , 2 Button.
При нажатии первой кнопки создается Tabsheet и Richedit, расположеный на Tabsheet 'е.
Кнопкой можно создать множество таких закладок.


Кнопка создания вкладки c Richedit 'ом:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
ts: TTabSheet;
re: TRichedit;
begin
ts := TTabSheet.Create(Self);
ts.PageControl := PageControl1;
re :=TRichEdit.Create(self);
re.Parent:=ts;
end;

Админ: Пользуемся тегами для оформления кода!

Как сделать , что бы вторая кнопка меняла шрифт (+fsbold/-fsbold) в Richedit'е выбраного Tabsheet 'а ?