Re[3]: Всплывающее меню
От: Spaider Верблюд  
Дата: 11.04.02 10:37
Оценка:
Здравствуйте 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;


И фсё -- все правоклики пресекаются на корню
--
К вашим услугам,
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.