Delphi Firemonkey：如何在windows下设置Tedit提示的颜色？

在Firemonkey下，如何设置Tedit提示的颜色（仅在windows下）？当Tedit文本字符串为空时，Tedit将显示提示字符串，我需要找到一种方法来自定义其颜色文本设置

。FontColor

属性控制可编辑文本颜色和提示颜色，因此您需要根据

文本

属性是否为空来更改颜色。当

文本

为空时，将显示提示文本

比如说

procedure TForm11.Edit1Typing(Sender: TObject);
begin
  if (Sender as TEdit).Text <> '' then
    (Sender as TEdit).TextSettings.FontColor := TAlphaColors.Black
  else
    (Sender as TEdit).TextSettings.FontColor := TAlphaColors.Crimson;
end;

程序TForm11.Edit1Typing（发送方：TObject）；
开始
如果（发件人为TEdit）。文本为“”，则
（发件人为TEdit）。TextSettings.FontColor:=TAlphaColors.Black
其他的
（发件人为TEdit）。TextSettings.FontColor:=TalphaColor.Crimson；
结束；

---

可能还有其他基于样式的解决方案，但您没有提到它们，因此我选择向您展示一个没有样式的解决方案。

否决该问题的人最好能说出他们为什么否决该问题……谢谢tom，但是seam提示FontColor与背景色“混合”了（可能通过增加一些不透明度）所以我想自己设置颜色：）不是变暗，我想自己设置颜色…你问我如何更改提示颜色，我回答了这个问题。现在，您正在询问如何禁用提示文本的暗显，这是一个完全不同的问题。请发布一个新问题。呸不，对不起，红色变暗了它不是红色：（无论如何，谢谢你的帮助！3年后它的价值。你可以在样式中更改变暗。提示标签的默认不透明度为0.5（版本10.3.2）。目前调整提示颜色的唯一方法是更改TEdit本身的fontcolor。这是一个设计错误，因为您可以通过SyleDesigner更改提示标签的样式，但它将被忽略。