Всплывающая подсказка "Скрывает" Edit

[T-dayne]

Здравствуйте! Вот такой код:

procedure TForm1.Edit2Change(Sender: TObject);
var
  H: THintWindow;
  Rec: TRect;
  begin
IF h<>nil //Если подсказка показана, скрыть ее
  then H.ReleaseHandle;
  H:=THintWindow.Create(Form1); //создаем подсказку для формы1
  Rec  := H.CalcHintRect(100,'Hello',nil); //Генерация структуры
  H.ActivateHint(Rec,'Hello'); //Показываем подсказку
end;

Этот код выводит на экран всплывающую подсказку при изменении edit2. Так вот, все работает, но при показе подсказки, исчезает само поле edit. В чем может быть проблема?

[noxin]

IF h=nil //Если подсказка показана, скрыть ее
  then H.ReleaseHandle;

Если так, то Edit не исчезает

[T-dayne]

noxin
В таком случае, не проверяется на имеющуюся подсказку, и она не закрывается. Т.е. при каждом изменении едита, будет создаваться новая подсказка.

[noxin]

Так она и так каждый раз создаётся, посмотри на код.
Засунь тогда всё в if.

[T-dayne]

Так она и так каждый раз создаётся, посмотри на код.

Создается, но перед этим закрывается предыдущая.

[noxin]

как я понимаю if здесь вообще бесмыслинен, т.к. h локальное, то при каждом входе оно будет одинаковым
Это на мой вгляд

[T-dayne]

проверено, без IF работает, но, если много текста написать в едит, то заметно увеличивается контрастность подсказки(одна на другую лезут). Проверка, точно нужна, но более изящным способом.

[T-dayne]

реализовал автозакрытие с помощью таймера, всем спасибо.