Firemonkey：如何设置Windows下Tedit提示的颜色？

Question

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

Answer 1

TextSettings.FontColor属性控制可编辑的文本颜色和提示颜色，因此您需要根据Text属性为空来更改颜色。 Text为空时显示提示文字。

例如

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;

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