[ffpereverzev]

Сообщение от Alegun

Первой была таже мысля с попапкой, но

привязать к пункту "обычного" меню по-другому вроде как не получится, окромя как проверять в каком риче фокус выделения

Уважаемый Alegun, прошу прощения что ввел Вас в заблуждение, но ведь действительно, я именно так и думал, как написал не менее уважаемый NumLock:

Сообщение от NumLock

Вариант с Popup отпугнул автора потому что он решил что это будет громоздко и нужны меню для каждого редактора.

Я и не понял, что можно было:

Сообщение от NumLock

С одним PopupMenu на все 100500 RichEdit делается очень просто:

Код:

procedure TForm1.PopupMenu1Click(Sender: TObject);
begin
  if (PopupMenu1.PopupComponent is TRichEdit) and (Sender is TMenuItem) then
  begin
    with TRichEdit(PopupMenu1.PopupComponent) do
    if Sender=fsBold1 then SelAttributes.Style:=[fsBold]
    else if Sender=fsItalic1 then SelAttributes.Style:=[fsItalic]
    else if Sender=fsUnderline1 then SelAttributes.Style:=[fsUnderline]
  end;
end;

Всем RichEdit свойству PopupMenu назначается один компонент PopupMenu1. Всем обработчикам OnClick элементов меню PopupMenu1 для упрощения назначается одно событие PopupMenu1Click.

Но, во всяком случае, это полностью соответствует моей доктрине:

Сообщение от ffpereverzev

Может, Вы, уважаемые форумчане, подскажете как это можно сделать или предложите более адекватный или простой путь к решению данной проблемы?

Так что ОГРОМНОЕ спасибо всем откликнувшимся! Спасибо за Ваше понимание и за то, что мое незнание не стало поводом для неудачных шуток.