Delphi：如何调整TEdit的文本垂直位置

Question

TEdit（或TCombo，TButtonedEdit）中的文字始终与顶部对齐。我没有找到任何属性来改变对齐方式。通常这不是问题，除非我想设置更大的高度。

我用Google搜索了一下。有一些解决方案可以通过发送Windows消息来调整左边距和右边距。但我不知道如何调整垂直对齐方式。

我不想使用更大的字体。有什么想法吗？

Answer 1

如果有这样的选项，它将通过一种风格来应用。 EDIT control styles list不包含这样的样式，因此结论是底层控件不提供此功能。

你必须要么做一个新的控制，要么自己接管这幅画。两者都没有特别吸引人。

Answer 2

解决一个老问题...我在一个类似的 c++ 问题中找到了一个解决方案：https://stackoverflow.com/a/51079348/2107791

• 通过将 TEdit 的属性 BorderStyle 设置为 bsSingle，文本会自动垂直居中。
• 权衡是编辑框周围的边框

使用 Delphi 10.3 Rio 对我有用。