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?