Bildausschnitt mit CopyRect() in Zwischenablage

[Pr0g]

Pack in das OnMouseWheelDown Ereignis der ScrollBox folgenden Code:

Delphi-Quellcode:

  //mit Mausrad nach unten scrollen
  SendMessage(ScrollBox1.Handle, WM_VSCROLL, SB_LINEDOWN, 0);

und in das OnMouseWheelUp Ereignis folgenden:

Delphi-Quellcode:

  //mit Mausrad nach oben scrollen
  SendMessage(ScrollBox.Handle, WM_VSCROLL, SB_LINEUP, 0);