Mauscursor bleibt nach maximieren und verschieben auf crSizeAll

[Schlumpi]

Hallo
ich habe folgendes Formular :
Align = alNone
Anchors []
Constraints MaxWidth 600
Width = 600

Mit dem Sinn :
das das Formular durchs maximieren nicht in
die Breite gehen soll , weil es lächerlich aussieht.

und folgendes Problem:
Wenn ich das Formular nun zur Laufzeit per Maximierenbutton
maximiere und es dann zu Mitte verschiebe verändert sich der
Mauszeiger zu crSizeAll und bleibt so.Auch nach Programmende.
Windowsweit.

Das passiert natürlich nicht ohne die Größenbeschränkung,aber
vielleicht liegt es an einem Konflikt der Beschränkung mit einer
anderen Eigenschaft.

Warnung: Definieren Sie auf keinen Fall Größenbeschränkungen, die zu einem Konflikt mit dem Wert der Eigenschaft Align oder Anchors führen. Die Reaktion des Steuerelements auf Größenänderungen ist sonst unvorhersehbar.

Weis da jemand mehr ?

MfG Schlumpi

[Schlumpi]

Jetzt hab ich bemerkt das die Eigenschaft Cursor wohl richtig
verwaltet wird, dh. es wird zB. auf crDefault zurückgeschaltet ,
aber die Cursorliste im Objektinspektor ist völlig durcheinander.
Erst ein WinNeustart hilft.

Als Übergangslösung mach ich der Form ein eigenes maximize.

void __fastcall TForm1::myWindowProc(Messages::TMessage &Message)

{

        if (Message.Msg == WM_SYSCOMMAND &&
            Message.WParam == SC_MAXIMIZE
            )
           {
              Form1->Top = 0 ;
              Form1->Height = Screen->Height ;

                  return;

           };

    WndProc(Message);

}

MfG Schlumpi