Тема: BalloonHint&Edit
Показать сообщение отдельно
  #2  
Старый 08.06.2012, 09:35
Аватар для Kailon
Kailon Kailon вне форума
Активный
 
Регистрация: 06.06.2010
Сообщения: 339
Версия Delphi: 10.4
Репутация: 429
Сообщение

А у меня все правильно отображается
Код:
var
  Point: TPoint;
begin
  if Key in ['*', '/', '\', '?', '"', '<', '>'] then
  with BalloonHint1 do
  begin
    Key := #0;
    Delay := 0;
    HideAfter := 1500;
    Title := 'Эти символы вводить запрещено:';
    Description := '*, /, \, ", ?, |';
    Point.X := Edit1.Width div 2;
    Point.Y := Edit1.Height;
    ShowHint(Edit1.ClientToScreen(Point));
  end;
__________________
Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете.
Ответить с цитированием