Maus Scrollen im StringGrid

[eddy]

Hallo daywalker299,

ich weiß zwar nicht, ob der nachfolgende Code in Version 3 funktioniert, aber Du kannst es ja mal probieren.

Code:

program BrwRun; 
// ....
begin
  Application.Initialize;

  // eingefügt:
  // läßt Scroll-Rad in DBGrid richtig funktionieren }
  Application.OnMessage := FBrwRun.AppMessage;
  // ....
end;

//------------------------------------------------------------------------

unit BrwRun1;
  // .... 
  public
    { Public-Deklarationen }
    procedure AppMessage(var Msg: TMsg; var Handled: Boolean);
  // ....


procedure TFBrwRun.AppMessage(var Msg: TMsg; var Handled: Boolean);
var
  i : smallint;
begin
  if Msg.message = WM_MOUSEWHEEL then begin
    Msg.message := WM_KEYDOWN;
    Msg.lParam := 0;
    i := HiWord(Msg.wParam);
    if i > 0 then Msg.wParam := VK_UP
             else Msg.wParam := VK_DOWN;
    Handled := false;
  end;
end;

mfg
eddy