Delphi - база знаний


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


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



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; 

Взято с Исходников.ru



Начало  Назад  Вперед