Text Prompt Delphi XE7

Question

Прежде чем я отправлю отчет о контроле качества в Embacadero, я хотел знать, есть ли что-то простое, что я пропускаю в отношении TEdit и устанавливаю свойство TextPrompt.

Всякий раз, когда вы пытаетесь установить TextPrompt любого TEdit, подсказка не отображается. Я пропустил какой-то шаг или есть простая работа над этой ошибкой, о которой все знают сейчас?

Delphi XE7 для прошивки (FMX)

Answer 1

Вы также можете просто придерживаться TLabel внутри вашего TEdit и выровнять его Содержимый или Клиент. Установите для свойства HitTest значение false. В событии onChange покажите это или скройте его, если свойство Text пустое. TextPrompt также имел проблемы в предыдущих версиях, поэтому я использовал это решение.

Answer 2

Вам необходимо использовать книгу стилей, чтобы заставить это работать правильно.

Пример:

• Создание нового приложения нескольких устройств
• Добавить компонент TStylebook.
• Установите свойство формы Stylebook в Stylebook1
• добавить TEdit

Я остановлюсь здесь на секунду. Можно было бы подумать, что, поскольку TEdit содержит свойство под названием «Текстовая подсказка», это было бы неинтересно, но добавление текста к этому свойству не сработает, почему .... Не знаю. В любом случае .....

• правой кнопкой мыши на компоненте TEdit и в нижней части страницы нажмите «Изменить пользовательский стиль»

Это поднимет контейнер stylebook1.

• На представлении структуры, разверните «edit1style1: TLayout»
• Выберите «Подсказка: TLabel»
• Изменить «Текст» свойство, что вы хотите приглашение быть.
• Выберите «Применить и закрыть» на Stylebook контейнере

Вот именно, вы увидите текст подсказки в элементе управления TEdit, и при запуске на нескольких платформ он работает, как ожидалось.