Mauszeiger verändern

[xZise]

Ich habe mein Fenster so geproggt, dass man mit <Strg> und gedrücker Maustaste auf das Fenster es bequem bewegen kann...
Also wollte ich noch den Mauszeiger "crSizeAll" dabei anzeigen... Also so geprogt:

Delphi-Quellcode:

procedure TfrmSpeedMemo.mMemoMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if ssCtrl in Shift then
  begin
    mMemo.Cursor := crSizeAll;
    ReleaseCapture;
    Perform(wm_syscommand,$f012, 0);
  end;
end;

procedure TfrmSpeedMemo.mMemoMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  mMemo.Cursor := crDefault;
end;

Theorie => Cool ^^
Praxis => Der Mauszeiger ändert sich erst, nachdem man die RMT losgelassen hat... Aber dann muss ich nochmal drücken, um ihn wieder zurückzuändern...

Gibt es eine "Mauszeigerrepaint"-Möglichkeit?

[sirius]

Ich glaube wenn du gleichzeitig noch die Eigenschaft Screen.cursor setzt, funktioniert es.

[xZise]

Dass ändert es zwar sofort... Aber nicht wieder zurück :(

Kann auch darn liegen, dass ich jetzt nur Screen.Cursor setze...

[sirius]

Läuft er überhaupt in die MouseUp-Methode rein? Hast du dort auch screen.cursor gesetzt?

[Daniel G]

Eventuell hilft in der MouseDown-Methode noch ein

Delphi-Quellcode:

Application.ProcessMessages;

Manchmal wirkt das Wunder.. :stupid: