![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
RxRichedit+PopuMenu [D7, WinXP]
Oleg_teacher © (2008-03-21 15:00:00)че то я не могу понять? Для Richedit-а надо было подключить PopuMenu. Подключил работает!!! Перешол на RxRichedit, тот же код не работает. Причем интересный факт когда ПКМ на мишке то не работает, а когда нажимаю кн. на клавиатупе вызова контексного меню то все работает. В чем проблема (может быть во мне?)
{RASkov} (2008-03-22 13:29:00) [1]> MouseUp
Ну да.... точно :)
Семеныч (2008-03-22 12:09:00) [2]> procedure TForm1.RxRichEdit1MouseDown(Sender: TObject);
Mouse Up
{RASkov} (2008-03-21 16:24:00) [3]> > [4] Oleg_teacher (21.03.08 16:17)
>
> Зачем обманываешь?
Сорри..... Мне показалось, что Семеныч просто не в курсе есть ли у RxRichEdit'а обработка кнопок мыши, вот он и поитересовался... так как всеж это "не родной" компонент Делфи...
{RASkov} (2008-03-21 16:21:00) [4]> [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;
Oleg_teacher (2008-03-21 16:17:00) [5]
> Обработка кнопок мыши у RxRichEdit есть?
Нет. Єто весь код
Семеныч (2008-03-21 15:23:00) [6]Обработка кнопок мыши у RxRichEdit есть?
Oleg_teacher (2008-03-21 15:20:00) [7]Вот мой код:
procedure TForm1.FormCreate(Sender: TObject);
begin
RxRichEdit1.PopupMenu:=popupMenu1;
Memo1.PopupMenu:=popupMenu1;
end;
все больше ничего нету!!! Для Memo1 работает а для RxRichedit1 не работает!!!
Palladin (2008-03-21 15:13:00) [8]ну если и правда в одном случае работает, а в другом не работает, то конечно дело в космических лучах... это же никак не объяснить...