Cursor in Mitte

[JasonDX]

Zitat von 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!

Des geht net ganz gut
Das OnMouseMove wird aufgrund des SetCursorPos unendlich lang aufgerufen, auch wenn die Maus nur einmal bewegt wurde.
Lösung: Siehe mein Beitrag oben