Скачать: CL | DM;

Прокрутка ScrollBox   Найти похожие ветки 

← →
Константинов ©   (2007-02-15 22:24) [0]

Нужно прокручивать скролбар колесиком мыши. Наваял следующее:

procedure TForm1.FormCreate(Sender: TObject);
begin
 Application.OnMessage := MyMessage;
end;

procedure TForm1.MyMessage(var Msg: TMsg; var Handled: Boolean);
 var VPos : integer;
begin
 case Msg.message of
   WM_MOUSEWHEEL : begin
     StatusBar1.Panels[3].Text := IntToStr(Msg.wParam);
     VPos := GetScrollPos(ScrollBox1.Handle,SB_VERT);
     if Msg.wParam > 0
       then SetScrollPos(ScrollBox1.Handle,SB_VERT,VPos+10,true)
       else SetScrollPos(ScrollBox1.Handle,SB_VERT,VPos-10,true);
     Handled := true;
   end;
 end;
end;

Скролл прокручивается, элементы на ScrollBox не перемещаются. Как лечится? Заранее спасибо.

---

← →
Константинов ©   (2007-02-16 00:06) [1]

Разобрался

ScrollBox1.SetFocus +

procedure TForm1.ScrollBox1MouseWheel(Sender: TObject; Shift: TShiftState;
 WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
 if WheelDelta > 0
   then ScrollBox1.VertScrollBar.Position := ScrollBox1.VertScrollBar.Position - 20
   else ScrollBox1.VertScrollBar.Position := ScrollBox1.VertScrollBar.Position + 20;
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c