Procedure TForm1.Button1Click(Sender: TObject); begin If FontDialog.Execute then...

Question

Procedure TForm1.Button1Click(Sender: TObject);
begin
If FontDialog.Execute then
RichEdit.SelAttributes.Assign(FontDialog1.Font);
RishEdit1.SetFocus;
End;
Найдите ошибку В ДЕЛФИ В ПРОГРАММЕ ИСПРАВТЕ ЕЕ!!!!!!!!!

Comments

а как на счет того чтобы исходники проекта выложить?

Answer 1

Procedure TForm1.Button1Click(Sender: TObject);
begin
    If FontDialog.Execute then
        RichEdit1.SelAttributes.Assign(FontDialog1.Font);
        RichEdit1.SetFocus;
    End;
end;

делфи у меня не установлены за совершенной ненадобностью, потому проверить возможности нет, но догадки показать могу.
 Не уверенна что RichEdit1.SelAttributes.Assign(FontDialog1.Font) выставляет шрифт, может там нужна кострукция типа
  RichEdit1.SelAttributes.Font := FontDialog1.Font
и конечно описка выделенная ранее, как на нее только компилятор не матерится

Comments

и еще в следующей строке тоже не RishEdit1, а RichEdit1

---

спасибо большое