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;

> > [4] Oleg_teacher (21.03.08 16:17)
>
> Зачем обманываешь?

Сорри..... Мне показалось, что Семеныч просто не в курсе есть ли у RxRichEdit"а обработка кнопок мыши, вот он и поитересовался... так как всеж это "не родной" компонент Делфи...

← →
Семеныч (2008-03-22 12:09) [7]

> procedure TForm1.RxRichEdit1MouseDown(Sender: TObject);

MouseUp

> MouseUp

Ну да.... точно :)

RxRichedit+PopuMenu Найти похожие ветки