Okno jak w Winampie

Ostatnio dostałem ze dwa e-maile, którego autorzy prosili mnie o rozwiązanie następującego problemu. Chcieli oni bowiem zrobić coś takiego jak jest w Winampie, czyli podczas przesuwania okna jeżeli jest ono blisko "przykleić" je do krawędzi drugiego okna.

Ja w swoim przykładzie nie zastosowałem drugiego okna, a jedynie krawędz obrazu. Jeżeli Ty chcesz to zrobić z oknem musisz zdobyć do niego uchwyt (FindWindow), a następnie jego pozycje (okna :)) przy pomocy GetWindowRect, no i postępować jak ja w tym gotowcu...

Wykrywanie procesu przesuwania okna odbywać się będzie za pomocą komunikatów. Z tego też powodu radzę się zapoznać z artykułem Komunikaty.

Podczas przesuwania okna do aplikacji przesyłany jest komunikat WM_WINDOWPOSCHANGING i to on będzie odgrywał kluczową rolę w naszym programie. Najpierw w sekcji private zadeklaruj taką procedurę:

procedure WndPosChanging(var Msg : TWMWINDOWPOSCHANGING); message WM_WINDOWPOSCHANGING;

Teraz w sekcji Implementation będziesz musiał wpisać kod tej procedury:

procedure TMainForm.WndPosChanging(var Msg: TWMWINDOWPOSCHANGING);
begin
{ wyswietl na komponencie pozycje okna }
  lblWndPos.Caption := 'X: ' + IntToStr(Left) + ' Y: ' + IntToStr(Top);
  
  if Msg.WindowPos.x < 100 then   // jezeli pozycja X jest mniejsza od 100 - przyklej do lewej krawedzi
    Msg.WindowPos.X := 0;

  if Msg.WindowPos.y < 100 then // jezeli pozycja Y bedzie mniejsza od Y przyklej na sama gore okna
    Msg.WindowPos.Y := 0;

    { przyklej do dolu obrazu }
  if Msg.WindowPos.y + height > (Screen.Height - Height + 100) then
    Msg.WindowPos.y := Screen.Height - Height;

  if Msg.WindowPos.x > (Screen.Width - Width - 100) then
    Msg.WindowPos.x := Screen.Width - Width;
end;

To jest cały program! Tak, o to Ci chodziło... gotowe :) Wszystko w tej procedurze to sprawdzanie pozycji okna - WindowPos.X i WindowPos.Y to pozycje okna. Teraz następuje sprawdzenie, czy pozycje te zawierają odpowiednie wartości i w zależności od tego zareagować zmieniając wartość WindowPos. to wszystko! Powodzenia...