Cursor in Mitte

[SleepyMaster]

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (X <> Screen.Width div 2)or(Y <> Screen.Height div 2)then
    begin
    if Y > Screen.Height div 2 then
      Memo1.Lines.Add('Scroll Down');
    if Y < Screen.Height div 2 then
      Memo1.Lines.Add('Scroll Up');
    SetCursorPos(Screen.Width div 2, Screen.Height div 2);
    end;
end;

Hab nur keine Ahnung was du scrollen willst - das mit dem scrollen musst du also selber machen!