TForm i TApplication
12.08.1999
  • Przechwytywanie operacji zmiany rozmiaru formy.

       Trzeba przechwycić komunikat WM_SYSCOMMAND. Podczas przeciągania wParam ustawiony jest SC_SIZE. Poniższy kod pokazuje jak określić dwie sytuacje - 1) forma zaraz zacznie zmieniać rozmiar, 2) forma zmieniła rozmiar.

//------------------------------------------------------ 
//w pliku nagłówkowym  
void __fastcall TrapResized(TMessage& Msg);  
BEGIN_MESSAGE_MAP  
    MESSAGE_HANDLER(WM_SYSCOMMAND, TMessage, TrapResized)  
END_MESSAGE_MAP(TForm) 

//------------------------------------------------------ 
//w pliku źródłowym

void __fastcall TForm1::TrapResized(TMessage& Msg)  
{  
    {  
        //Forma zaraz zmieni rozmiar, tu wpisz kod.
    }  
    TForm::Dispatch(&Msg);  
}  
  

//wersja druga... 
void __fastcall TForm1::TrapResized(TMessage& Msg)  
{  
    TForm::Dispatch(&Msg);  
    {  
        //Forma zmieniła rozmiar, tu wpisz kod.
    }  
}