[kobz]

Привет всем. разбираюсь с подсказкой BalloonHint. Пытаюсь сделать похожее (см. вложение). Нашел в инете кое-какой код, который переделал под себя.

Код:

Procedure TForm.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  point: TPoint;
begin
  if Key = '*' then
  begin
    BalloonHint1.Description := 'бла-бла-бла';
    Point.X := Edit1.Width div 2;
    Point.Y := 0;
    BalloonHint1.ShowHint(Edit1.ClientToScreen(point));
  end;
end;

Но почему-то хинт выскакивает не под Edit-ом, а в месте где находится курсор. Как можно переделать строку:

Код:

 BalloonHint1.ShowHint(Edit1.ClientToScreen(point));

что бы хинт изображался как на рис. и возможно ли такое стандартным хинтом? Спасибо.