На форме 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 'а ?