TForm i TApplication
8.08.1999
  • Przesuwanie formy po uchwyceniu dowolnego jej punktu.

       Możesz pozwolić użytkownikowi na poruszanie formą przy kliknięciu nienoniecznie paska tytułowego. Ta metoda jest szczególnie użyteczna przy formach pozbawionych paska tytułowego, a także formach różnokształtnych. Kluczem jest sprawienie, aby Windows myślał, że użytkownik kliknął pasek tytułowy. Po prostu musisz przemapować kliknięcie obszaru użytkownika na kliknięcie paska tytułowego.

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

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