Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.11.28;
Скачать: CL | DM;

Вниз

Вопрос о динамическом создании 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);


 
4kusNick ©   (2004-04-30 21:54) [4]

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



Страницы: 1 вся ветка

Текущий архив: 2004.11.28;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.04 c
6-1095341263
netter
2004-09-16 17:27
2004.11.28
Подключение/отключение сетевого адаптера под WinXP или Win2000


14-1100256099
Ega23
2004-11-12 13:41
2004.11.28
Появилась авантюрная идея...


14-1100206583
ArMellon
2004-11-11 23:56
2004.11.28
Народ вот делаю чат


9-1090961858
xdev
2004-07-28 00:57
2004.11.28
Налаживание текстур на полигон


1-1100159363
cvg
2004-11-11 10:49
2004.11.28
Как бороться с Access violation?