Cursor in Mitte

[SleepyMaster]

Hast vollkommen recht (böse VCL war Schuld! )

Muss so aussehen:

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  P: TPoint;
  SY, SX: DWORD;
begin
  SX := GetSystemMetrics(SM_CXSCREEN);
  SY := GetSystemMetrics(SM_CYSCREEN);
  GetCursorPos(P);

  if (P.X <> SX div 2)or(P.Y <> SY div 2)then
    begin
    if Y > SY div 2 then
      Memo1.Lines.Add('Scroll Down');
    if Y < SY div 2 then
      Memo1.Lines.Add('Scroll Up');
    SetCursorPos(SX div 2, SY div 2);
    end;
end;