[HSD_LioN]

Доброго всем времени суток!
Хочу по данному событию переводить ToolButton в состояние Down:=true, при условии, что у RichEdit'а

SelAttributes.Style = TControl(TToolButton).Name

Если Style = [fsBold] или же [fsItalic], то всё работает! А если Style = [fsBold,fsItalic] (и т.п.), то кнопки не реагируют!

Что посоветуете, уважаемые?

[Nyctos Kasignete]

Вы, видимо, что-то не так делаете. Попробуйте так:

Код:

procedure TForm1.RichEdit1SelectionChange(Sender: TObject);
begin
  ToolButton1.Down := (fsBold in RichEdit1.SelAttributes.Style); // bold button
  ToolButton2.Down := (fsItalic in RichEdit1.SelAttributes.Style); // italic button
end;

[HSD_LioN]

Правда, я к тому времени уже сам додумался, в чём проблема... Я использовал метод сравнения, вместо проверки на принадлежность (забыл про in, однако!). Но всё равно, благодарю за ответ, ибо он окончательно убедил меня, что я на верном пути!