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

Материал из DRKB

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

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; 


Source: Взято из http://forum.sources.ru
ID: 01280
ID: 01591