delphi - 文本提示 Delphi XE7

Question

在我向 Embacadero 提交 QC 报告之前，我想知道在 TEdit 和设置“TextPrompt”属性方面是否有一些我忽略的简单内容。

每当尝试设置任何 TEdit 的 TextPrompt 时，提示都不会显示。我是否错过了一个步骤，或者是否有一个简单的解决方法可以解决目前任何人都知道的这个错误？

Delphi XE7 for iOS ( FMX )

Answer 1

您也可以在 TEdit 中粘贴一个 TLabel 并将其与 Content 或 Client 对齐。将其 HitTest 属性设置为 false。在 onChange 事件中，根据 Text 属性是否为空来显示或隐藏它。TextPrompt 在以前的版本中也有问题，所以我改用了这个解决方法。

Answer 2

您需要使用样式书才能使其正常工作。

样本 ：

• 创建一个新的多设备应用程序
• 添加 TStylebook 组件。
• 将表单样式书属性设置为 Stylebook1
• 添加一个 TEdit

我会在这里停一下。有人会认为，因为 TEdit 包含一个名为“Text Prompt”的属性，所以这很容易，但是向该属性添加文本不起作用，为什么....不知道。无论如何.....

• 右键单击 TEdit 组件，然后在底部单击“编辑自定义样式”

这将打开 stylebook1 容器。

• 在结构视图上，展开“edit1style1：TLayout”
• 选择“提示：TLabel”
• 将“文本”属性更改为您希望提示的任何内容。
• 在样式簿容器上选择“应用并关闭”

就是这样，您将在 tedit 控件中看到文本提示，并且在多平台上运行时，它按预期工作。