Вопрос о динамическом создании RichEdit

← →
4kusNick © (2004-04-26 14:49) [0]

Уважаемые профессионалы, хотелось бы решить такую задачку:
Решил я значит создать рич динамически:
...
procedure TMain.KOLForm1FormCreate(Sender: PObj);
...
begin
...
If WrdWrp then //WrdWrp - пременная типа булеан - перенос длинных строк
Main.RichEdit:= NewRichEdit(Main.Form, [eoNoHScroll])
else
Main.RichEdit:= NewRichEdit(Main.Form, []);

Main.RichEdit.Align:= caClient;
...
end;

И столкнулся с проблемой: как же мне теперь с "невидимым" до создания формы ричем ассоциировать стандартные события типа OnRightMouse, OnDrop и т.д.? Подскажите, как быть?

← →
Владимир Кладов (2004-04-26 19:01) [1]

неохота руками написать свой метод с нужными параметрами и присвоить его событию? Есть решение проще: бросить на форму такой же контрол, создать для него событие через Object Inspector, написать в теле что-нибудь, чтобы он не исчез сам собой. Теперь можно удалить контрол, и где надо присвоить этот метод в качестве обработчика:
MyRich.OnChange := RichEdit1Change;

Собственно, ничего специфического для KOL/MCK, в VCL это тоже работает.

← →
4kusNick © (2004-04-30 19:23) [2]

Ok понял. Уже сделал.

И еще вопрос:

Описал я значит, событие при RightClick"е на Rich"е а вот меню почему - то появляется не совсем там, где надо.
Вот кусок кода:
------------------CUT-------------------------
If Mouse.Button = mbRight then RichEditMenu.popup(Mouse.X,Mouse.Y)
------------------CUT-------------------------

В итоге меню появляется чуть выше и левее, а когда я изменил эту строку таким образом
If Mouse.Button = mbRight then rem.popup(Mouse.X+какое-то число,Mouse.Y+какое-то число),
то положение меню зависит уже от размеров окна программы.
Что не так?

← →
GuAV (2004-04-30 21:52) [3]

>If Mouse.Button = mbRight then RichEditMenu.popup(Mouse.X,Mouse.Y)I>

Зачем?
RichEdit.SetAutoPopupMenu(RichEditMenu);

Усек. Спасибо. :)
Глупый вопрос.

Вопрос о динамическом создании RichEdit Найти похожие ветки