TForm i TApplication
10.08.1999
  • Zablokowanie przesuwania formy.

       Należy sprawić, aby Windows "myślał", że kliknięto w obszarze użytkownika, a nie na pasku tytułowym. Czyli przemapować kliknięcia z paska tytułowego na obszar użytkownika...

//w pliku nagłówkowym  
public:  
     void __fastcall DontMoveIt(TMessage &Msg);  
BEGIN_MESSAGE_MAP  
    MESSAGE_HANDLER(WM_NCHITTEST, TMessage, DontMoveIt)  
END_MESSAGE_MAP(TForm) 

//------------------------------------------------------ 
//w pliku źródłowym
void __fastcall TForm1::DontMoveIt(TMessage &Msg)  
{  
    TForm::Dispatch(&Msg);  
    if (Msg.Result == HTCAPTION) Msg.Result = HTCLIENT;  
}