Как заставить появиться окошко подсказки когда курсор мышки находится над определённым контролом? |
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