Показать подсказку в нужный момент в указанном месте

Автор: Борисов Сергей [http://www.CodeLab.3dn.ru]
{codecitation class=»brush: pascal; gutter: false;» width=»600px»}
Procedure ShowMyHint(var hnt:THintWindow; x,y,w,h:integer; title: string);
begin
if hntnil then hnt.ReleaseHandle;
hnt:=THintWindow.Create(Form1); // создаем
hnt.Color:=clWhite;             // устанавливаем цвет
hnt.ActivateHint(rect(x,y,x+w,y+h), title); // показываем
end;

Procedure HideMyHint(var hnt:THintWindow);
begin
if hntnil then hnt.ReleaseHandle;
end;
{/codecitation}
Из названий процедур думаю понятно, что первая создает подсказку, а вторая её убирает.

Пример использования:
{codecitation class=»brush: pascal; gutter: false;» width=»600px»}
var h: THintWindow;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMyHint(h, 0,0,150,16, ‘Моя подсказка’);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
HideMyHint(h);
end;

{/codecitation}

Добавить комментарий