[090808]

Люди помогите как сделать прокрутку колёсиком мыши в ScrollBox....
Если не сложно можно подробнее

[TOJluK]

Почитай тут:
http://www.delphimaster.ru/cgi-bin/f...1223610051&n=0

[Nyctos Kasignete]

Вот метод вертикальной прокрутки в ScrollBox... =)

Код:

type
  TForm1 = class(TForm)
    ScrollBox1: TScrollBox;
    Image1: TImage;
    // ...............
   private
    { Private declarations }
    procedure WMMOUSEWHEEL(var Msg: TMessage); message WM_MOUSEWHEEL;
  public
    { Public declarations }
  end;

......................

procedure TForm1.WMMOUSEWHEEL(var Msg: TMessage);
var
  zDelta: Integer;
begin
  inherited;
  if WindowFromPoint(Mouse.CursorPos) <> ScrollBox1.Handle then Exit;
  if Msg.WParam < 0 then zDelta := -10 else zDelta := 10;
  with ScrollBox1 do
  begin
    if ((VertScrollBar.Position = 0) and
        (zDelta > 0)) or
       ((VertScrollBar.Position = VertScrollBar.Range - ClientHeight) and
        (zDelta < 0)) then Exit;
    ScrollBy(0, zDelta);
    VertScrollBar.Position := VertScrollBar.Position - zDelta;
  end;
end;

[090808]

Пожалуйста опишите что и куда вставлять по очереди ((
Я не понимаю (((

[090808]

Почти получилось......
Но вот прокручивается только если навести курсором на првую строчку прокрутки,а как сделать так чтоб в любом месте когда крутиш колёсико чтоб страничка лесталась?

[Nyctos Kasignete]

Чтобы прокручивалось при любом расположении мыши, уберите эту строчку.

Код:

if WindowFromPoint(Mouse.CursorPos) <> ScrollBox1.Handle then Exit;

[090808]

Теперь оно выдаёт ошибку ((((


У тебя есть аська ?