Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c