08.06.2012, 09:35
|
|
Активный
|
|
Регистрация: 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;
__________________
Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете.
|