Помогите с RichEdit

← →
Yus (2007-06-11 05:11) [0]

Печатает шрифтом "Tahoma". Не знаю, что нужно сделать, чтобы установить в RichEdit шрифт. Пробовал устанавливать в обработчике "OnKeyPress", шрифт устанавливается, но первый знак - шрифт "Tahoma".

procedure TForm1.RichEdit1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
caption:=RichEdit1.SelAttributes.Name;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
RichEdit1.SelAttributes.Name:="MS Sans Serif";
RichEdit1.Font.Name:="MS Sans Serif";
RichEdit1.DefAttributes.Name:= "MS Sans Serif";
end;

← →
Yus (2007-06-11 05:19) [1]

Под Win98 глюка нет.

Помогите с RichEdit Найти похожие ветки