Delphi

Разработка сайтов

Наши проекты

Главная » Статьи по Delphi » Hint подсказки » Показать подсказку в нужный момент в указанном месте

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

Автор: Борисов Сергей

Procedure ShowMyHint(var hnt:THintWindow; x,y,w,h:integer; title: string);
begin
  if hnt<>nil 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 hnt<>nil then hnt.ReleaseHandle;
end;

Из названий процедур думаю понятно, что первая создает подсказку, а вторая её убирает.

Пример использования:

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;