[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. В чем может быть проблема?