Musehjul i TScrollBox

Send lige mig projekter .. så knækker jeg den. Fordi Musehjuler virker ikke i D5

Jens B

Her kommer mainformens unit, efterfulgt af .dfm-filen.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls;

type
  TForm1 = class(TForm)
    ScrollBox1: TScrollBox;
    Panel1: TPanel;
    Panel2: TPanel;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

end.

------------------------------------------


object Form1: TForm1
  Left = 196
  Top = 140
  Width = 870
  Height = 640
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object ScrollBox1: TScrollBox
    Left = 96
    Top = 64
    Width = 553
    Height = 481
    TabOrder = 0
    object Panel1: TPanel
      Left = 128
      Top = 56
      Width = 297
      Height = 1000
      Caption = 'Panel1'
      TabOrder = 0
      object Panel2: TPanel
        Left = 16
        Top = 24
        Width = 257
        Height = 513
        Caption = 'Panel2'
        TabOrder = 0
      end
    end
  end
end

Jo, musehjulet VIRKER faktisk under Delphi 5 i en scrollbox. Bare ikke, hvis der ligger mere end ét lag komponenter i scrollboxen...

PS: Jeg kører Windows 2000 SP2 med MS IntelliPoint driver til musen, som er en MS Wireless Wheel Mouse.

Never mind. Jeg fandt en løsning.

Ja jeg har ikke lige kigget på den .. Men jeg vil gerne se den ...

Formens OnMouseWheel assignes, og i den udfører jeg følgende linie:

ScrollBox1.VertScrollBar.Position:=ScrollBox1.VertScrollBar.Position-(WheelDelta div 4);