Lepkie formularze

[Pitek]

Witam, chciałbym zrobić coś, na kształt przyklejania się okna do krawędzi pulpitu w Win7, znaczy jeżeli zbliżę okno do krawędzi drugiego okna (oczywiście ten sam program) to w odpowiedniej odległości one będą się do siebie lepić i przesuniemy je wzdłuż tego boku, dopiero oderwanie, czyli przesuniecie o jakiś większy odcinek spowoduje oderwania się okien od siebie. Jak to ugryźć ?

[Mironas]

Przechwytuj komunikaty o przesunięciu/przeskalowaniu okna:
Przechwyceniu komunikatu o przesunięciu formularza

Sterować innym oknem możesz przez zmianę jego parametrów Left/Top lub wysyłając do niego komunikaty za pomocą funkcji SendMessage(...)

[Pitek]

Dziękuję Ogarnąłem sobie to ładnie już mi działa. Tylko pytanie czy da się to jakoś zrobić "live" czyli żeby go "łapało" w trakcie przenoszenia ?

[Mironas]

czy da się to jakoś zrobić "live" czyli żeby go "łapało" w trakcie przenoszenia ?

Dokładnie to co potrzebujesz opisane jest w poradzie Sklejanie formularzy, jednoczesne przesuwanie dwóch formularzy

Tylko u mnie czasami okna przy użyciu tej metody pozostawiają śmieci na ekranie.

Sugeruję abyś zajrzał na stronę Cyfrowego Barona a zwłaszcza do działu TEMATYCZNY SPIS PORAD

[Cyfrowy Baron]

Jemu chyba chodzi o funkcję Snap, czyli użytkownik przeciąga okno programu w pobliże krawędzi pulpitu, puszcza okno i zostaje ono przyciągnięte do tej krawędzi pulpitu.

Jeżeli o to chodzi, to począwszy od C++Builder 2010 formularz ma dwie właściwości:

ScreenSnap true - włącza przyciąganie okna do krawędzi pulpitu; false - wyłącza przyciąganie okna do krawędzi pulpitu
SnapBuffer wartość określająca z jakiej odległości od krawędzi pulpitu okno jest przyciągane.

[Mironas]

Jeśli chodzi o klejenie Form2 do Form1 to musisz podczas przeciągania Form2 sprawdzać jak jesteś blisko Form1 i korygować pozycję.

[Pitek]

Więc chodzi mi i o to i o to. Znaczy przyciąganie się okna ale nie do krawędzi pulpitu tylko do krawędzi drugiego okna. Ogarnąłem to wszystko ładnie działa, koryguje pozycje za pomocą Top i Left. Tylko chodzi mi o to że robię to w funkcji SetMoveWindow z porady Barona, kod wykonuje się dopiero po upuszczeniu przesuwanego okna. Ja chciałbym że okno łapało jeszcze podczas przesuwania go.... Tyle.

[Cyfrowy Baron]

Funkcja SetMoveWindows tak działa i tego nie przeskoczysz. Powinieneś się skupić na poradzie Sklejanie formularzy, jednoczesne przesuwanie dwóch formularzy gdyż masz tam opisany sposób przechwytywania komunikatu w trakcie przesuwania formularza.

[sebaskow]

Musisz użyć zdarzenia WM_MOVING aby odczytywać na bieżąco pozycję okna i móc zareagować w odpowiednim czasie i przyciągnąć jedno okno do drugiego.

W Unit.h zadeklaruj metody prywatne:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

private:        // User declarations
         TWndMethod Sc;
         void __fastcall OnFormMove(TMessage& Msg);
         RECT sRect, Rect;

Następnie w konstruktorze klasy okna wprowadź:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 Sc = WindowProc;
 WindowProc = OnFormMove;
 GetWindowRect(Handle, &Rect);
}

I masz gotowy wynik pozycji okna:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::OnFormMove(TMessage& Msg)
{
 if(Msg.Msg == WM_MOVING)
 {
  Rect  =* (RECT*)Msg.LParam;
  Caption = Rect.left; // pozycja okna
 }
 if(Msg.Msg == WM_SIZING)
 {
  Rect  =* (RECT*)Msg.LParam;
  Caption = Rect.top - Rect.bottom;
 }
 if(Msg.Msg == WM_KEYDOWN)  // --- 45102
 {
 ShowMessage("Wcisnąłem coś");
 }
 Sc(Msg);
}

Pozdrawiam.

[Pitek]

Dzięki
Mam tylko mały problem z kodem poniżej. Mianowicie przy tych odległościach w których okno ma się kleić, zaczyna szaleć jak zwariowane. Jest to dla mnie zrozumiałe ale jak można temu zaradzić?

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm2::OnFormMove(TMessage& Msg)
{
 if(Msg.Msg == WM_MOVING)
 {
  Rect  =* (RECT*)Msg.LParam;

                if(Left > Form1->Left + Form1->Width - 30 && Left < Form1->Left + Form1->Width + 30) //  odleglosc od okna lewo-prawo
                {
                        if(Top > Form1->Top - 30 && Top < Form1->Top + 30)
                        {
                                Left = Form1->Left + Form1->Width + 5;
                                Top = Form1->Top + 5;
                        }
                        else if(Top + Height > Form1->Top + Form1->Height - 30 && Top + Height < Form1->Top + Form1->Height + 30)
                        {
                                Left = Form1->Left + Form1->Width + 5;
                                Top = Form1->Top + Form1->Height - Height - 5;
                        }
                        else if(Top > Form1->Top + 30 && Top + Height < Form1->Top + Form1->Height - 30)
                                Left = Form1->Left + Form1->Width + 5;
                }
 }
 Sc(Msg);
}

[polymorphism]

Może zamiast przesuwać okno "na raty" właściwościami Top i Left użyj funkcji MoveWindow.

[Pitek]

Nie rozumiem w czym różnica, może nie rozumiem idei tej funkcji, co robię źle ?

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm2::OnFormMove(TMessage& Msg)
{
 if(Msg.Msg == WM_MOVING)
 {
  Rect  =* (RECT*)Msg.LParam;

                if(Left > Form1->Left + Form1->Width - 30 && Left < Form1->Left + Form1->Width + 30) //  odleglosc od okna lewo-prawo
                {
                        if(Top > Form1->Top - 30 && Top < Form1->Top + 30)
                        {
                                MoveWindow(Handle,Form1->Left + Form1->Width + 5,Form1->Top + 5,Form2->Width,Form2->Height,true);
//                              Left = Form1->Left + Form1->Width + 5;
//                              Top = Form1->Top + 5;
                        }
                        else if(Top + Height > Form1->Top + Form1->Height - 30 && Top + Height < Form1->Top + Form1->Height + 30)
                        {
                                MoveWindow(Handle,Form1->Left + Form1->Width + 5,Form1->Top + Form1->Height - Height - 5,Form2->Width,Form2->Height,true);
//                              Left = Form1->Left + Form1->Width + 5;
//                              Top = Form1->Top + Form1->Height - Height - 5;
                        }
                        else if(Top > Form1->Top + 30 && Top + Height < Form1->Top + Form1->Height - 30)
                        {
                                MoveWindow(Handle,Form1->Left + Form1->Width + 5,Form1->Top,Form2->Width,Form2->Height,true);
//                              Left = Form1->Left + Form1->Width + 5;
                        }
                }
 }
 Sc(Msg);
}

[Cyfrowy Baron]

Dzieje się tak dlatego, że mimo iż zmieniasz pozycję okna w kodzie, to system i tak przyciąga okno z powrotem do kursora. Wydaje mi się, że nie da się tego przeskoczyć. Nie spotkałem się z podobną funkcjonalnością w Windows XP.

[Pitek]

Ale ja mam Win 7... Mam to w profilu.

[polymorphism]

Wydaje mi się, że nie da się tego przeskoczyć.

Da się, musi tylko zaimplementować swoją obsługę przeciągania okna komunikaty WM_NCLBUTTONDOWN, WM_MOUSEMOVE, WM_LBUTTONUP i WM_CAPTURECHANGED.