Привет
Подскажите, пожалуйста, можно ли и как, если можно, совсем отменить(а не заменить своим) всплывающее по правой кнопке мыши стантартное меню на компанентах типа Edit, Memo и тп

S>Подскажите, пожалуйста, можно ли и как, если можно, совсем отменить(а не заменить своим) всплывающее по правой кнопке мыши стантартное меню на компанентах типа Edit, Memo и тп

Вариант "Light"
Добавить на форму свой popup menu и не давать ему активироваться (перекрыв OnPopup)+ у нужных контролов прописать этот компонент как popupmenu

Вариант 2
перекрыть нажатие правой кнопки мыши для формы

Здравствуйте vav, Вы писали:


vav>Вариант "Light"
vav>Добавить на форму свой popup menu и не давать ему активироваться (перекрыв OnPopup)+ у нужных контролов прописать этот компонент как popupmenu

vav>Вариант 2
vav>перекрыть нажатие правой кнопки мыши для формы

Я и сама пыталаль реализовать Вариант "Light"(это как раз то, что мне нужно), но что значит "перекрыть OnPopup"?
Exit из него сразу не помогает...
(Мне приходится дорабатывать очень старый проект — на Delphi1)

Здравствуйте aaaSv, Вы писали:

S>Здравствуйте vav, Вы писали:


vav>>Вариант "Light"
vav>>Добавить на форму свой popup menu и не давать ему активироваться (перекрыв OnPopup)+ у нужных контролов прописать этот компонент как popupmenu

vav>>Вариант 2
vav>>перекрыть нажатие правой кнопки мыши для формы

S>Я и сама пыталаль реализовать Вариант "Light"(это как раз то, что мне нужно), но что значит "перекрыть OnPopup"?
S>Exit из него сразу не помогает...
S>(Мне приходится дорабатывать очень старый проект — на Delphi1)

Нашел корректный IMHO метод:

procedure TForm1.FormContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
begin
  Handled:=True;
end;

И фсё -- все правоклики пресекаются на корню

S>Нашел корректный IMHO метод:

S>

S>procedure TForm1.FormContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
S>begin
S>  Handled:=True;
S>end;
S>

S>И фсё -- все правоклики пресекаются на корню :)


Дело в том, что у меня проект на Delphi1 (ПЕРВЫЙ Delphi) и , если вы имеете в виду событие
TControl.OnContextPopup, то там его просто нет
:(