WM_MOVING - obsługa komunikatu

[sebaskow]

Mam pytanie.

Jak obsłużyć komunikat WM_MOVING w naszym c++ builder ?

[Cyfrowy Baron]

Ale co dokładnie chcesz zrobić? Wysłać komunikat, odebrać komunikat etc...

[sebaskow]

Chcę móc kontrować pozycję okna w trakcie przesuwania.
Chcę więc odbierać komunikaty.
Ale nic nie stoi na przeszkodzie żebym się dowiedział jak wysyłać taki komunikat.

Oczywiście nie przez:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

Form1->Left = 100;
Form1->Top = 120;

Tylko przez SendMessage lub też PostMessage.

Z góry dziękuję za pomoc.

[Mironas]

Tu znajdziesz pewne wskazówki:
http://programowanie.cal.pl/cyfbar/form.html#form15

[Cyfrowy Baron]

Plik nagłówkowy np. Unit1.h

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

private:
                TWndMethod wmForm;
                void __fastcall OnFormMove(TMessage& Msg);

Plik źródłowy np. Unit1.cpp

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 wmForm = WindowProc;
 WindowProc = OnFormMove;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::OnFormMove(TMessage& Msg)
{
 if(Msg.Msg == WM_MOVING)
 {
   TPoint pt =* (POINT*)Msg.LParam;

  Caption =  "Left: " + (String)pt.X + " | Top: " + (String)pt.Y;
 }
 wmForm(Msg);
}

LParam zawiera koordynaty RECT okna programu. Ja posłużyłem się strukturą POINT, więc zwraca mi tylko koordynaty lewego górnego roku okna, można jednak pobrać RECT:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::OnFormMove(TMessage& Msg)
{
 if(Msg.Msg == WM_MOVING)
 {
   TRect fRect =* (RECT*)Msg.LParam;

  Label1->Caption = "Left: " + (String)fRect.Left + "\nTop: " + (String)fRect.Top
                                  + "\nRight: " + (String)fRect.Right + "\nBottom: " + (String)fRect.Bottom
                                  + "\nWidth: " + (String)fRect.Width() + "\nHeight: " + (String)fRect.Height();
 }
 wmForm(Msg);
}

Komunikat WM_MOVING zwraca wartości tylko gdy okno jest przesuwane, podczas gdy komunikat WM_MOVE zwraca wartości tylko lewego górnego rogu obszaru roboczego okna, czyli obszaru bez beli tytułowej i obramowania znanego jako ClientRect, jednak tylko parametrów X i Y, ale wartość jest aktualizowana nie tylko podczas przesuwania, ale również po przesunięciu:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::OnFormMove(TMessage& Msg)
{
 if(Msg.Msg == WM_MOVE)
 {
   TPoint pt;
   pt.X = (int)(short)LOWORD(Msg.LParam);
   pt.Y = (int)(short) HIWORD(Msg.LParam);

  Label1->Caption =  "Left: " + (String)pt.X + " | Top: " + (String)pt.Y;
 }
 wmForm(Msg);
}

lub prościej:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::OnFormMove(TMessage& Msg)
{
 if(Msg.Msg == WM_MOVE)
 {
   POINTS pt = MAKEPOINTS(Msg.LParam);

  Label1->Caption =  "Left: " + (String)pt.x + " | Top: " + (String)pt.y;
 }
 wmForm(Msg);
}

W celu zmiany pozycji okna za pomocą kodu można posłużyć się funkcją MoveWindow:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

MoveWindow(this->Handle, 50, 100, this->Width, this->Height, true);

Za pomocą komunikatu WM_MOVE, czy też WM_MOVING nie można zmienić pozycji okna.

[sebaskow]

Naprawdę dziękuję.

Jeszcze tylko jedno pytanie mi się nasunęło:
Rozumiem że w ten sposób mogę obsługiwać inne komunikaty okna ?

http://www.autohotkey.com/docs/misc/SendMessageList.htm

[Cyfrowy Baron]

Nie wszystkie komunikaty można wysyłać, niektóre można tylko odbierać i nie zawsze w ten sam sposób. W niektórych trzeba obsłużyć np. tylko LParam, a w innych również WParam,
Poczytaj to: http://programowanie.cal.pl/cyfbar/teor13.htm