Цитата:
|
Сообщение от Alegun
Первой была таже мысля с попапкой, но
Цитата:
|
Сообщение от ffpereverzev
...Вариант с PopupMenu не предлагать...
|
привязать к пункту "обычного" меню по-другому вроде как не получится, окромя как проверять в каком риче фокус выделения |
Уважаемый
Alegun, прошу прощения что ввел Вас в заблуждение, но ведь действительно, я именно так и думал, как написал не менее уважаемый
NumLock:
Цитата:
|
Сообщение от NumLock
Вариант с Popup отпугнул автора потому что он решил что это будет громоздко и нужны меню для каждого редактора.
|
Я и не понял, что можно было:
Цитата:
|
Сообщение от NumLock
С одним PopupMenu на все 100500 RichEdit делается очень просто:
Код:
1 2 3 4 5 6 7 8 9 10 | 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
Может, Вы, уважаемые форумчане, подскажете как это можно сделать или предложите более адекватный или простой путь к решению данной проблемы?
|
Так что
ОГРОМНОЕ спасибо всем откликнувшимся! Спасибо за Ваше понимание и за то, что мое незнание не стало поводом для неудачных шуток.
11.03.2017, 15:24
NumLock 
Древовидный вид