(   ______________241

       Hint,    true
 ShowHint,    true  ParentShowHint,   -
  ShowHint = true,      
 Hint   .

,        ShowHint
 Application  true (    ). 
 Application->ShowHint  false,      
   ShowHint   .

 Hint       -
      -      -
 GetShortHint  GetLongHint,       -
,     (   ,   
). ,        -
MouseMove,       -
.  

void fastcall TFormI::ButtonlMouseMove(TObject *Sender,

TShiftState Shift, int X, int Y)
{

TControl *Send = (TControl *)Sender;

Panell->Caption = GetShortHint(Send->Hint);

Panel2->Caption = GetLongHint(Send->Hint);

}

   Panell ,    Panel2    
Hint  ,     ,   
   OnMouseMove    ButtonlMouseMo-
ve.         ShowHint.

     Send   Sender, -
    TControl.  TControl    -
         Hint,  
.

  .   ,     
Buttoni     Panell   -
, ,   ,      -
    .      Hint  -
   |   ,   true  ShowHint, a
       

.Panell->Caption = GetLongHint(Buttonl->Hint);

         ,  
   ShowHint = false,   Hint,  -
  ,        
      

Panell->Caption = GetShortHint.<Buttonl->Hint);

    

Panell->Caption = Buttonl->Hint;

        , -
  Hint,     -    , -
          -
  OnHint.     ,   
 ,      Application.   -
  ,       ,  -
   Hint,       -