Форум по Delphi программированию - Показать сообщение отдельно - Как отключить правую кнопку мыши в TEmbeddedWB

Casper-Hacker · #2 31.07.2009, 10:15

Код:

 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;

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