[T-dayne]

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

Код:

1 2 3 4 5 6 7 8 9 10 11

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

[Ama]

А зачем создавать если можно применить Application.ActivateHint