又一个关于RichEdit的怪问题

Question

RichEdit1.Font.Name := ComboBox1.Items[ComboBox1.ItemIndex];

Answer 1

RichEdit.SelAttributes.Color:=Color;
RichEdit.SelAttributes.Name:=FontName;// String
RichEdit.SelAttributes.Size:=Size;
RichEdit.SelAttributes.Style:=FontStyle;
RichEdit.SelStart:=selStart;
RichEdit.SelLength:=selLength;

Answer 2

给你一个例子
很直观
procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Items:=screen.Fonts;
  richedit1.HideSelection:=false;//要这句,当焦点移动在其它控件上时,richedit的sel了的text上的黑色依然保持
end;procedure TForm1.ComboBox1Click(Sender: TObject);
begin
  RichEdit1.SelAttributes.Name:=combobox1.Items.Strings[combobox1.ItemIndex];
  RichEdit1.SelAttributes.Size:=RichEdit1.SelAttributes.Size+10;//为了引起强烈变化
end;

Answer 3

faint~~~~~~~~~~~建议你重新安装好了在我机器上，完全正常！