
Originariamente inviato da
_alka_
Di quale errore parliamo? Manca il messaggio o lo screenshot.

si scusa... "RANGE CHECK ERROR"
con una finestra che si ripropone continuando ad usare la scroll-wheel
usando il 'Range Checking' delle opzioni riesco a fermare l'errore in debug su questa procedura e solo quando si scrolla in basso !:
procedure TQRStandardPreview.WndProc( var Message : TMessage );
var
i : integer;
begin
if Message.Msg = WM_MOUSEWHEEL then
begin
Message.Msg := WM_KEYDOWN;
Message.lParam := 0;
i := HiWord(Message.wParam) ;
if i > 0 then
Message.wParam := VK_UP
else
Message.wParam := VK_DOWN;
end;
inherited WndProc( message );
end;