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