[Casper-Hacker]

Код:

 private
  procedure WMMouseActivate(var Msg: TMessage); message WM_MOUSEACTIVATE;
.....

procedure TForm1.WMMouseActivate(var Msg: TMessage);
begin
try
inherited;
if Msg.LParamHi = 516 then Msg.Result:= MA_NOACTIVATEANDEAT;
except
end;
end;

Все и правая кнопка мыши не работает...