Работа с подсказками baloon hint

void __fastcall TForm1::CreateBalloonTip(TWinControl* Control,int Icon, wchar_t* Title, wchar_t* Text)
{
  HWND hWnd = Control->Handle;
  MyBalloonHint = ::CreateWindowEx(WS_EX_TOPMOST, TOOLTIPS_CLASS, NULL, WS_POPUP | TTS_NOPREFIX | TTS_BALLOON | TTS_CLOSE, 0, 0, 0, 0, NULL, NULL, HInstance, NULL);
 
    if (MyBalloonHint)
    {
        //int X = 50, Y = 50;
        //TOOLINFO ToolInfo;
 
        ToolInfo.cbSize = sizeof(TOOLINFO);
        ToolInfo.uFlags = TTF_TRANSPARENT | TTF_TRACK | NIF_INFO | TTF_PARSELINKS | TTF_SUBCLASS;
        ToolInfo.hwnd = hWnd;
        ToolInfo.uId = 0;
        ToolInfo.hinst = HInstance;
        ToolInfo.lpszText = Text;
 
        ::GetClientRect(MyBalloonHint, &ToolInfo.rect);
        ::SendMessage(MyBalloonHint, TTM_ADDTOOL, 0, (LPARAM) &ToolInfo );
        //::SendMessage(MyBalloonHint, TTM_TRACKPOSITION, 0, (LPARAM) (DWORD) MAKELONG (X, Y));
        ::SendMessage(MyBalloonHint, TTM_SETTITLE, Icon % 4, (int)Title);
        ::SendMessage(MyBalloonHint, TTM_TRACKACTIVATE, true, (LPARAM) &ToolInfo);
        // и так далее...
    }
 
void __fastcall TForm1::ShowToolTip(bool show,TControl* Control)
{
   ::SendMessage(MyBalloonHint, TTM_TRACKACTIVATE, show, (LPARAM) &ToolInfo );
 
  if(show)
  {
    TPoint tp = ClientToScreen(TPoint(Control->Left+(Control->Width/2),Control->Top+Control->Height));
    ::SendMessage(MyBalloonHint, TTM_TRACKPOSITION, 0, (LPARAM)MAKELPARAM(tp.x,tp.y));
    //vis = true;
  }
 
}
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
   WindowProc = myWndProc;
}
 
void __fastcall TForm1::myWndProc(Messages::TMessage &Message)
{
       switch (Message.LParam)
        {
         case WM_LBUTTONDOWN:
         ShowMessage("Нажал на балун");
         break;
        }
       WndProc(Message);
}

CreateBalloonTip(Edit1, 2, L"Оповещение", L"1223456");
ShowToolTip(true, Edit1);

void __fastcall TForm1::NewEditWndProc(TMessage &Msg)
{
    // нужные проверки
    FOldEditWndroc(Msg);
}
 
// OnCreate
  FOldEditWndroc = Edit1->WindowProc; // TWndMethod FOldEditWndroc в классе формы
  Edit1->WindowProc = NewEditWndProc;

void __fastcall TForm1::FormCreate(TObject *Sender)
{
 FOldEditWndroc = Edit1->WindowProc;
 Edit1->WindowProc = NewEditWndProc;
 }
void __fastcall TForm1::NewEditWndProc(TMessage &Msg)
{
       switch (Msg.LParam)
        {
         case WM_LBUTTONDOWN:
         ShowMessage("Нажал на балун");
         break;
        }
       FOldEditWndroc(Msg);
}

WNDPROC old_edit_wndproc;
LRESULT APIENTRY edit_new_wndproc( HWND, UINT, WPARAM, LPARAM );
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
 old_edit_wndproc = (WNDPROC)SetWindowLong(Edit1->Handle, GWL_WNDPROC, (long)  edit_new_wndproc);
}
//---------------------------------------------------------------------------
LRESULT APIENTRY edit_new_wndproc(HWND hwnd, UINT msg, WPARAM w_param, LPARAM l_param)
{
    switch (msg)
    {
    case WM_LBUTTONDOWN:
        ShowMessage("Нажал на балун");
        break;
    default:
        old_edit_wndproc(hwnd, msg, w_param, l_param);
    }
}
//------------------------------------------------------------------------------
__fastcall TForm1::~TForm1()
{
    SetWindowLong(Edit1->Handle, GWL_WNDPROC, (long)old_edit_wndproc );
}

LRESULT APIENTRY edit_new_wndproc(HWND hwnd, UINT msg, WPARAM w_param, LPARAM l_param)
{
    switch (msg)
    {
    case WM_LBUTTONDOWN:
        ShowMessage(L"Нажал на балун");
        break;
 
    case WM_NOTIFY:
        if(reinterpret_cast<LPNMHDR>(l_param)->code == TTN_POP)
        ShowMessage(L"Закрыл балун");
        break;
    default:
        old_edit_wndproc(hwnd, msg, w_param, l_param);
    }
}

TrayIcon1->BalloonTimeout = 3000;

WNDPROC old_tray_wndproc;
LRESULT APIENTRY tray_new_wndproc( HWND, UINT, WPARAM, LPARAM);
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
        TrayIcon = new Graphics::TIcon;
        TrayIcon->Handle = reinterpret_cast<HICON>
        (LoadImage(HInstance, MAKEINTRESOURCE(MY_ICON), IMAGE_ICON, 0, 0,
        LR_DEFAULTCOLOR));
 
    old_tray_wndproc = (WNDPROC)SetWindowLong(TrayIcon->Handle, GWL_WNDPROC, (long)tray_new_wndproc);
//-----------------------------------------------------------------------------------------------------------------
LRESULT APIENTRY tray_new_wndproc(HWND hwnd, UINT msg, WPARAM w_param, LPARAM l_param)
{
    switch (msg)
    {
    case WM_NOTIFY:
        if(reinterpret_cast<LPNMHDR>(l_param)->code == TTN_POP)
        Application->Terminate();
        break;
    default:
        old_tray_wndproc(hwnd, msg, w_param, l_param);
    }
}

WNDPROC old_tray_wndproc;
LRESULT APIENTRY tray_new_wndproc( HWND, UINT, WPARAM, LPARAM);
//---------------------------------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
        TrayIcon = new Graphics::TIcon;
        TrayIcon->Handle = reinterpret_cast<HICON>
        (LoadImage(HInstance, MAKEINTRESOURCE(MY_ICON), IMAGE_ICON, 0, 0,
        LR_DEFAULTCOLOR));
 
old_tray_wndproc = (WNDPROC)SetWindowLong(this->Handle, GWL_WNDPROC, (long)tray_new_wndproc);
//----------------------------------------------------------------------------------------------------------
LRESULT APIENTRY tray_new_wndproc(HWND hwnd, UINT msg, WPARAM w_param, LPARAM l_param)
{
    switch (msg)
    {
    case WM_NOTIFY:
        if(reinterpret_cast<LPNMHDR>(l_param)->code == TTN_POP)
        ShowMessage("Выключение");
        Application->Terminate();
        break;
    default:
        old_tray_wndproc(hwnd, msg, w_param, l_param);
    }
}
 
//-----------------------------------------------------------------------------------------------------------------
__fastcall TForm1::~TForm1()
{
    
    SetWindowLong(this->Handle, GWL_WNDPROC, (long)old_tray_wndproc);
}