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, то там его просто нет
:(