Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как с помощью ролика мыши, прокручивать

Автор: Zero 10.4.2005, 09:28

САБЖ.

Автор: SPrograMMer 10.4.2005, 10:29

Код


Property TScrollBox.Position:Integer;

Автор: Zero 10.4.2005, 15:57

Спасибо, навело на мысль:

Код


procedure TForm7.ScrollBox1MouseWheelDown(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
  ScrollBox1.VertScrollBar.Position:=ScrollBox1.VertScrollBar.Position+10;
end;

procedure TForm7.ScrollBox1MouseWheelUp(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
  ScrollBox1.VertScrollBar.Position:=ScrollBox1.VertScrollBar.Position-10;
end;