Cursor bei gedrückter Maustaste

[Linor]

Hallo Zusammen,

ich habe im moment ein Problem bei einer eigenen Komponente, abgeleitet von TCustomCrontrol, den Mauszeiger zu verändern wenn die Maustaste gedrückt wurde und wiederherzustellen beim loslassen....

Die Methoden MouseDown, MouseMove und MouseUp habe ich überschrieben und setze in MouseDown Self.Cursor := crSizeAll und in MouseUp Self.Cursor = crDefault... Doch nichts passiert.

Setze ich aber in MouseMove den Cursor und die Maustaste ist NICHT gedrückt, z.B. für eine Region, dann wird der Zeiger geändert.

Und: Wenn ich in MouseUp den Cursor nicht wieder herstelle, wird dieser verändert dargestellt sobald ich die Maus loslasse :evil:

Jemand eine Idee wie man sauber den Cursor während der gedrückten Maustaste verändert? (z.B. für Verschiebeoperationen)

[DeddyH]

Das sieht bei mir ganz gut aus:

Delphi-Quellcode:

type
  TTestControl = class(TCustomControl)
  protected
    procedure Paint; override;
    procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer); override;
    procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer); override;
  end;

...

procedure TTestControl.MouseDown(Button: TMouseButton; Shift: TShiftState; X,
  Y: Integer);
begin
  inherited;
  if Button = mbLeft then
    Screen.Cursor := crSizeAll;
end;

procedure TTestControl.MouseUp(Button: TMouseButton; Shift: TShiftState; X,
  Y: Integer);
begin
  inherited;
  if Button = mbLeft then
    Screen.Cursor := crDefault;
end;

//nur damit man das Ding auch sieht
procedure TTestControl.Paint;
begin
  inherited;
  Canvas.Brush.Color := clRed;
  Canvas.FillRect(Rect(0,0,Width,Height));
end;

[Linor]

Hallo Detlef,

ja Screen.Cursor anstelle von Self.Cursor klappt, aber das zurücksetzen auf crDefault würde dann nur korrekt klappen wenn man sich vorher den aktiven Cursor gemerkt hat!?

Warum geht Self.Cursor nicht wenn man das während der gedrückten Maustaste ausführt? Ist die Maustaste nicht gedrückt klappt es ja auch mit Self.Cursor...

[DeddyH]

Wieso das mit Self.Cursor nicht funktioniert, kann ich Dir leider auch nicht ad hoc sagen. Und Du hast Recht, auf der sicheren Seite bist Du, wenn Du vorher den alten Cursor wegsicherst.

Delphi-Quellcode:

//im MouseDown
if Button = mbLeft then
  begin
    FOldCursor := Screen.Cursor;
    Screen.Cursor := crSizeAll;
  end;

//im MouseUp
if Button = mbLeft then
  Screen.Cursor := FOldCursor;