|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
изменить свойства SelAttributes.Style в одном из Richedit 'ов ,созданых в runtime
На форме 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. |
#2
|
|||
|
|||
использовать re.Tag и потом искать его уникальный номер через FindComponent или Components[n] и ComponentsCount.
P.S.: мог ошибиться в названии функций и классов, но смысл верный. взялся из неоткуда, ничего не прошу, помогаю просто так ICQ: 593977748 - стучать в случае КРАЙНЕЙ необходимости, ну, или если вы со Ставрополя |