Mam formę, która w onCreate ma:
Constraints.MinHeight := 400;
Constraints.MinWidth := 600;
Czyli blokuję w ten sposób możliwość zmiany rozmiaru okna poniżej ustawionych tutaj wysokości i szerokości. Chciałem dodać do tego okna możliwość "przyklejania" do krawędzi ekranu, znalazłem temat w FAQ i dodałem:
procedure WndPosChanging(var Msg : TWMWINDOWPOSCHANGING); message WM_WINDOWPOSCHANGING;
procedure TForm1.WndPosChanging(var Msg: TWMWINDOWPOSCHANGING);
begin
if Msg.WindowPos.x < (Screen.WorkAreaLeft + 15) then
Msg.WindowPos.X := Screen.WorkAreaLeft;
if Msg.WindowPos.y < (Screen.WorkAreaTop + 15) then
Msg.WindowPos.Y := Screen.WorkAreaTop;
if Msg.WindowPos.y > (Screen.WorkAreaHeight - Height - 15) then
Msg.WindowPos.y := Screen.WorkAreaHeight - Height;
if Msg.WindowPos.x > (Screen.WorkAreaWidth - Width - 15) then
Msg.WindowPos.x := Screen.WorkAreaWidth - Width;
end;
Stało się jednak coś, czego nie spodziewałem się. Okno przykleja się pięknie ale nie działa blokada rozmiaru ustawiona powyżej.
Ktoś ma jakiś pomysł jak to rozwiązać ???