How to compensate cursor position in edit control?

Question

I am creating a custom edit control that consists of adding an icon on the left and an icon button on the right, like inside an edit control. This requires shifting the starting point of the text (and cursor) to the right by the X number of pixels. It also means that I need to “limit” how wide the text can be to make room for the button on the right. The goal is to provide both the custom icon on the left, for example, in the browser, and the “X” button on the right, to clear the contents of the edit control.

How to compensate for Rect , where to draw text and cursor in TCustomEdit stream?

Answer 1

If you are using a later version of Delphi, there should already be TButtonedEdit Control and you can do your work.

If not, I think you can send the message EM_SETMARGINS to your TCustomEdit to set the left and right fields.

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