Уважаемый программисты помогите примините выбранный фон из сипска ComboBox к RichEdit
Процедурка отображения есть Combobox1.Items:=Screen.Fonts; а как применить выбраный шрифт к RichEdit??
ComboBox
Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду
-
Naeel Maqsudov
- Сообщения: 2570
- Зарегистрирован: 20 фев 2004, 19:17
- Откуда: Moscow, Russia
- Контактная информация:
[syntax=Delphi]
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
RichEdit1.Font.Name := ComboBox1.Items[ComboBox1.ItemIndex];
end;
[/syntax]
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
RichEdit1.Font.Name := ComboBox1.Items[ComboBox1.ItemIndex];
end;
[/syntax]