Cursor bei gedrückter Maustaste

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