🚀 go-pugleaf

Hi guys, just q quicky about tooltips - seems this topic has been discussed 
quite a bit previous but i can't seem to find the answers to my problems.

Having read loads on the tooltip topic, I finally found a working example on 
a russian site.  The code produces the standard tooltip pop-up in resonce to 
a mouse over (code example is shown at the bottom of the post).

However, I now have two seperate requirements and problems.  The first is 
that i need to position the tooltip below the control that it is being 
displayed for.  Currently it is displayed above the control.  I have tried 
using the SetWindowsPos but it doesn't seem to have any effect.

The second (and unrelated) problem that i have is that i want to display the 
tooltip in responce to a users data entry.  In IE's proxy setting, if you 
try to enter a non-numeric value into the edit box, it displays a tooltip to 
tell you this, I want to achieve the same thing.  Obviously i know how to 
process and check the data entry but i don't know how to force the 
displaying of tooltip.

Thanks in advance.

Mike C


// code snippit

__fastcall TForm1::TForm1(TComponent* Owner)
   : TForm(Owner)
{
 ShowBalloonTip(Edit1, 1, "User, ?? ?? ????.","????? ?????? ?????? ???? 
??????? ????? ??????.", clCream, clNavy);
}

//---------------------------------------------------------------------------

void __fastcall TForm1::ShowBalloonTip(TWinControl* Control,int Icon, char* 
Title,
  char* Text, TColor BackCL, TColor TextCL)
{
  TOOLINFO ti;
  THandle* hWndTip;
  THandle* hWnd;

  hWnd = (unsigned int*) Control->Handle;
  hWndTip = (unsigned int*)CreateWindow("tooltips_class32",
                                        NULL, WS_POPUP | TTS_NOPREFIX | 
TTS_BALLOON | TTS_ALWAYSTIP,
                                        0, 0, 0, 0, hWnd, 0, HInstance, 
NULL);
  if (hWndTip != 0)
      {
       SetWindowPos(hWndTip, HWND_TOPMOST, 0, 0, 0, 
0,SWP_NOACTIVATE|SWP_NOMOVE|SWP_NOSIZE);
       ti.cbSize=sizeof(ti);
       ti.uFlags= NIF_INFO | TTF_ABSOLUTE; //NIF_INFO;//NIF_INFO ;  // 
TTF_CENTERTIP|TTF_TRANSPARENT|TTF_SUBCLASS;
       ti.hwnd  = hWnd;
       ::GetClientRect(hWnd, &ti.rect);
       SendMessage(hWndTip, TTM_SETTIPBKCOLOR, BackCL, 0);
       SendMessage(hWndTip, TTM_SETTIPTEXTCOLOR, TextCL, 0);
       ti.lpszText=Text;
       SendMessage(hWndTip,TTM_ADDTOOL, 1, (int)&ti);
       SendMessage(hWndTip,TTM_SETTITLE, Icon % 4, (int)Title );
       //SetWindowPos(hWndTip, HWND_TOPMOST, 200, 200, 0, 
0,SWP_NOACTIVATE|SWP_NOSIZE);

      }
}