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

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. := rect. + y;
  rect.Bottom := rect.Bottom + y;
  hintWnd.ActivateHint( rect, hinttxt);
 end;
end;

Замечание: Не забудьте каждый раз создавать hintWnd:
hintwnd:= THintWindow.create(self);
а затем освобождать его
hintwnd.releasehandle;

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

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...