Подписаться на RSS рассылку
Главная » Статьи по 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;

Просмотров: 9232

Обсудить на форуме

0   Спам
(06.05.2012)
2. Денис
А как показать например у определенного компонента? например у edit5 ?

0   Спам
(08.12.2011)
1. спас
Спасибки


Имя *:
Email:


Код *:

Copyright © 2008-2016 Программирование на Delphi для начинающих и не только

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации

Хостинг от uCoz

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

e-mail: save-x@yandex.ru

Связь с администрацией сайта