Neuen Cursor?

[DeddyH]

Du kannst entweder ein Control (z.B. Panel) an diese Stelle legen und dem Deinen Cursor zuweisen oder im OnMouseMove den Cursor dynamisch setzen.

Delphi-Quellcode:

procedure TFormBlubb.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
const MyCursors: array[Boolean] of TCursor = (crDefault, crIBeam);
begin
  Screen.Cursor := MyCursors[(X in [100..200]) and (Y in [50..100])];
end;