Scrollbox, Paintbox und auf Scrollrad reagieren

[eddy]

Hallo Touchdown,

probier' mal, ob Dir das weiterhilft:

Delphi-Quellcode:

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;

In TDBGrid, TListBox und TComboBox wirkt's.

mfg
eddy

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]