Добрый день. У меня в программе на PageControl находится множество RichEdit, создающихся динамиченски, и когда я пытаюсь изменить свойства RichEdit на всех страницах вот таким кодом:
| Код |
while JustInteger< Form1.PageControl1.PageCount do
begin
TRichEdit(Form1.PageControl1.Pages[Justinteger]).Font.Name:= Edit1.Text;
TRichEdit(Form1.PageControl1.Pages[Justinteger]).Font.Color:= Edit1.Font.Color;
TRichEdit(Form1.PageControl1.Pages[Justinteger]).Color:= ColorBox1.Selected;
JustInteger:= JustInteger + 1;
end;
|
То везде меняется шрифт и цвет шрифта, но цвет самих RichEdit-ов остаётся неизменным. Подскажите, где ошибка? Заранее благодарен. |
