Cursor bei onMouseDown ändern

[ManuMF]

Hallo,

wie kann ich den Cursor auf einem Panel bei onMouseDown ändern?
Ich habe schon Form.cursor, Panel.cursor und Cursor := crSizeAll probiert, aber er ändert sich nicht.

Danke,
ManuMF

[DBR]

Delphi-Quellcode:

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Panel1.cursor := crHourGlass;
  ReleaseCapture;
end;

Gruß DBR

[ManuMF]

Danke, das funktioniert. Nur habe ich jetzt ein anderes Problem:

Delphi-Quellcode:

procedure TForm.PanelMouseDown(Sender: TObject; Button: TMouseButton;
     Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
  begin
    FFormMoving := True;
    FMoveStartPos := Point(X, Y);
    Panel.Cursor := crSizeAll;
    ReleaseCapture;
  end;
end;

procedure TForm.PanelMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if FFormMoving then
    SetWindowPos(Handle, 0,
                 Left + (X - FMoveStartPos.X),
                 Top + (Y - FMoveStartPos.Y),
                 0, 0, SWP_NOSIZE or SWP_NOZORDER);
end;

procedure TForm.PanelMouseUp(Sender: TObject; Button: TMouseButton;
     Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
  begin
    FFormMoving := False;
    Panel.Cursor := crCross;
    ReleaseCapture;
  end;
end;

Ich nutze diesen Code, um das Formular ausgehend von dem Panel zu verschieben. Mit ReleaseCapture bleibt das Formular "stecken", sobald ich die Maus ein bisschen schneller bewege.

Kennt jemand eine Lösung für beide Probleme?

[DBR]

Delphi-Quellcode:

const
  FFormMoving: boolean = false;

var
  FMoveStartPos: TPoint;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Panel.Cursor := crCross;
end;

procedure TForm1.PanelMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
  begin
    FFormMoving := True;
    FMoveStartPos := Point(X, Y);
    Panel.Cursor := crSizeAll;
    ReleaseCapture;
    Application.processmessages;
    SetCapture(Panel.handle);
  end;
end;

procedure TForm1.PanelMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if FFormMoving then
    SetBounds(Left - (FMoveStartPos.x - x), Top - (FMoveStartPos.y - y),
      Width, Height);
end;

procedure TForm1.PanelMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
  begin
    FFormMoving := False;
    Panel.Cursor := crCross;
  end;
end;

Gruß DBR

[ManuMF]

Super, funktioniert! :thumb: