禁用鼠标

标签：ar   for   sp   on   cti   bs   as   tt   nbsp   

procedure TFormMain.scrlbx1MouseActivate(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y, HitTest: Integer;
  var MouseActivate: TMouseActivate);
begin
  if x+30 > scrlbx1.ClientWidth then
    MouseActivate := maActivateAndEat;
end;

禁用鼠标

标签：ar   for   sp   on   cti   bs   as   tt   nbsp   

原文地址：http://my.oschina.net/u/582827/blog/338809