![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
![]() На форме 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 'а ? Последний раз редактировалось Admin, 16.05.2011 в 21:59. |