Главная страница
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.051 c
6-1095420604
Softal
2004-09-17 15:30
2004.11.28
Ssh


14-1099995947
TohaNik
2004-11-09 13:25
2004.11.28
Картинка любопытная;) http://delphiplus.org/


8-1093835847
SNV-Soft
2004-08-30 07:17
2004.11.28
Как загрузить в Bitmap изображение из файлов jpeg, gif, и тд.


3-1099023202
sanek
2004-10-29 08:13
2004.11.28
как сложить цифровые данный из разных ячеяк таблици


3-1098946570
Jungle
2004-10-28 10:56
2004.11.28
Проблема с подключением к SQL Server 2000