|
#1
|
|||
|
|||
BalloonHint&Edit
Привет всем. разбираюсь с подсказкой 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; Код:
BalloonHint1.ShowHint(Edit1.ClientToScreen(point)); |