Neuen Cursor?

[Destroyer446]

Hi!
Ich wüsste gerne, wie ichs anstelle dass ich an einer bestimmten Stelle auf meiner Form einen Cursor habe, wie bei einem Textfeld.

Danke!

[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;