Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 12 ноября!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Заставляем появиться Hint в нужный момент

Сделаем это по нажатию на первую кнопку, а по нажатию на вторую кнопку будем скрывать окно hint'a:


 public
   { Public declarations }
   h: THintWindow;
 
 procedure TForm1.Button1Click(Sender: TObject);
 begin
   if h<>nil then
     H.ReleaseHandle;
   H:=THintWindow.Create(Form1);
   H.ActivateHint(Form1.ClientRect, 'Это всплывающая подсказка');
 end;
 
 procedure TForm1.Button2Click(Sender: TObject);
 begin
   if h<>nil then
     H.ReleaseHandle;
 end;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS