Как заставить появиться окошко подсказки когда курсор мышки находится над определённым контролом?

Previous  Top  Next

    
 

 

 

Code:

var hintWnd: THintWindow;

 

procedure TForm1.ActivateHintNOW( x,y: Integer);

var rect: TRect;

begin

HintTxt := 'qq';

if hintTxt <> '' then

begin

   rect := hintWnd.CalcHintRect( Screen.Width, hinttxt, nil);

   rect.Left := rect.Left + x;

   rect.Right := rect.Right + x;

   rect.Top := rect.Top + y;

   rect.Bottom := rect.Bottom + y;

   hintWnd.ActivateHint( rect, hinttxt);

end;

end;

 

 

 

Замечание: Не забудьте каждый раз создавать hintWnd:

 

    hintwnd:= THintWindow.create(self);

 

а затем освобождать его

 

   hintwnd.releasehandle;

 

©Drkb::01280

Взято из http://forum.sources.ru