Главная страницаОбратная связьКарта сайта

Заставляем появиться 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;


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


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Заставляем появиться Hint в нужный момент", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info