TForm1 = class(TForm) 
    procedure FormCreate(Sender: TObject); 
  private 
    procedure AppMessage(var Msg: TMsg; var Handled: Boolean); 
    procedure WheelMessage(var Msg: TMsg); message WM_MOUSEWHEEL; 
  public 
  end; 

var 
  Form1: TForm1; 

implementation 

{$R *.DFM} 

procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean); 
begin 
  if msg.message=WM_MOUSEWHEEL then 
    showmessage('Ja'); 
end; 

procedure TForm1.WheelMessage(var Msg: TMsg); 
begin 
  Showmessage('Ja'); 
end; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  application.OnMessage:=AppMessage; 
end;

procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
var
   i: SmallInt;
begin
   if Msg.message = WM_MOUSEWHEEL then
   begin
     Msg.message := WM_VSCROLL;
     Msg.lParam := 0;
     i := HiWord(Msg.wParam) ;
     if i > 0 then
       Msg.wParam := SB_LINEUP  // $0
     else
       Msg.wParam := SB_LINEDOWN; // $01

     Handled := False;
   end;
end;

quote:

---

Oorspronkelijk geplaatst door PaHaSOFT

Bas,

Nee hoor met scrollen in locoverzicht werkt prima. Nu netjes per regel en als je de ctrl indrukt een hele pagina.

Mvg,
Paul.

---