     393

//  U2Messl.cpp

void _fastcall TForm2 : .OnActivate (TWMActivateS a)
(

if (a.Active == WA_INACTIVE)
Label2->Caption = " !";

else Label2->Caption = "!  !";

a.Result = 0;

 OnActivate     ,   . 
    Active  ,    
     .    -
       .

       PMessl.
  (. 6.1),         
 ,      .

. 6.1

,





 ,     -
,     ,   .  ,  ,
    4.2.4  4  
WM_GETMINMAXINFO,     . -
   

void   fastcall TFormI::OnGetMinMaxInfo(TWMGetMinMaxInfoS a)

a.MinMaxInfo->ptMinTrackSize.x = 180;

a.MinMaxInfo->ptMaxTrackSize.x = 300;

a.MinMaxInfo->ptMinTrackSize.y = 150;

a.MinMax!nfo->ptMaxTrackSize.y = 300;

a.MinMaxInfo->ptMaxPosition.x = BoundsRect.Left;

a.MinMax!nfo->ptMaxPosition.y = BoundsRect.Top;

       -
   150300     180300   , 
         -
     .

6.3.4   

      , -
 API Windows. ,       
    ,   .

        
WM_USER,      .