392______________________________________________ 6

 OnClose        TWMClose.   pri-
vate    .    , 
message   .

  OnClose  WM_CLOSE  ,  
 ,       .  -
   MessageDIgPos,   
    ,    .  -
      Close.   -
 a.Result = 0  ,       
   WM_CLOSE.

       PMessl.
 ,     Show Form2   Form2  -
  Exec Pmess2  PMess2,  ,    Form2 
PMess2     ,   , 
 :  Close Form2  Close Pmess2,     -
  .        
.

,       .  
 Close Pmess2 ,      , , 
 ,    Formi      
   Close Pmess2.      .  -
,           -
    ,        Close
Pmess2.  ,    ,     -
  .

      , -
  WM_CLOSE   .   
 ,    ,  . -
     ( 6.3.1)  WM_ACTIVATE.
         . -
 ,  ,  fActive.  WA_INACTIVE  -
 ,   .    -
,   .

      (Formi  Form2  PMessl, 
Formi  PMess2)   WM_ACTIVATE.  -
,     ,     -
  Label2,      .   
     (    Form2):

//  U2Messl.h
class TForm2 : public TForm
(

_published:     // IDE-managed Components
TLabel *Labell;

TLabel *Label2;

private:         // User declarations

void   fastcall OnClose(TWMCloses Message);

void   fastcall OnActivate(TWMActivateS Message);

public:          // User declarations
_fastcail TForm2(TComponent* Owner) ;

BEGIN_MESSAGE_MAP

MESSAGE_HANDLER(WM_CLOSE, TWMClose, OnClose)
MESSAGE_HANDLER(MM_ACTIVATE, TWMActivate, OnActivate)
END_MESSAGE_MAP(TComponent)
};

//