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;
}
|