Привет всем. разбираюсь с подсказкой 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));
что бы хинт изображался как на рис. и возможно ли такое стандартным хинтом? Спасибо.