Текущий архив: 2008.04.20;
Скачать: CL | DM;
Вниз
RxRichedit+PopuMenu Найти похожие ветки
← →
Oleg_teacher (2008-03-21 15:00) [0]че то я не могу понять? Для Richedit-а надо было подключить PopuMenu. Подключил работает!!! Перешол на RxRichedit, тот же код не работает. Причем интересный факт когда ПКМ на мишке то не работает, а когда нажимаю кн. на клавиатупе вызова контексного меню то все работает. В чем проблема (может быть во мне?)
← →
Palladin © (2008-03-21 15:13) [1]ну если и правда в одном случае работает, а в другом не работает, то конечно дело в космических лучах... это же никак не объяснить...
← →
Oleg_teacher (2008-03-21 15:20) [2]Вот мой код:
procedure TForm1.FormCreate(Sender: TObject);
begin
RxRichEdit1.PopupMenu:=popupMenu1;
Memo1.PopupMenu:=popupMenu1;
end;
все больше ничего нету!!! Для Memo1 работает а для RxRichedit1 не работает!!!
← →
Семеныч (2008-03-21 15:23) [3]Обработка кнопок мыши у RxRichEdit есть?
← →
Oleg_teacher (2008-03-21 16:17) [4]
> Обработка кнопок мыши у RxRichEdit есть?
Нет. Єто весь код
← →
{RASkov} © (2008-03-21 16:21) [5]> [4] Oleg_teacher (21.03.08 16:17)
Зачем обманываешь?procedure TForm1.RxRichEdit1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var P: TPoint;
begin
if Button=mbRight then begin
P:=RxRichEdit1.ClientToScreen(Point(X,Y));
PopupMenu1.Popup(P.X, P.Y);
end;
end;
← →
{RASkov} © (2008-03-21 16:24) [6]> > [4] Oleg_teacher (21.03.08 16:17)
>
> Зачем обманываешь?
Сорри..... Мне показалось, что Семеныч просто не в курсе есть ли у RxRichEdit"а обработка кнопок мыши, вот он и поитересовался... так как всеж это "не родной" компонент Делфи...
← →
Семеныч (2008-03-22 12:09) [7]> procedure TForm1.RxRichEdit1MouseDown(Sender: TObject);
MouseUp
← →
{RASkov} © (2008-03-22 13:29) [8]> MouseUp
Ну да.... точно :)
Страницы: 1 вся ветка
Текущий архив: 2008.04.20;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.024 c
