如何在编辑控件中偏移光标的位置？

Question

我正在构建一个自定义编辑控件,它包括在左侧添加一个图标和在右侧添加一个图标按钮,两者都在编辑控件内.这需要将文本(和光标)的起点向右移动X个像素量.这也意味着我需要"限制"文本的绘制范围,以便为右侧的按钮腾出空间.目的是在左侧提供自定义图标,例如在浏览器中,以及在右侧提供"X"按钮以清除编辑控件的内容.

如何抵消Rect在TCustomEdit后代中绘制文本和光标的位置？

Answer 1

如果您使用的是更新版本的Delphi,那么应该已经有了TButtonedEdit控件并可以完成您的工作.

如果没有,我认为您可以向TCustomEdit发送EM_SETMARGINS消息以设置左右边距.

SendMessage(CustomEdit.Handle, EM_SETMARGINS, EC_LEFTMARGIN or EC_RIGHTMARGIN, MakeLong(LeftMargin, RightMargin));