Как сместить позицию курсора в элементе редактирования?

Question

Как сместить позицию курсора в элементе редактирования?

Я создаю пользовательский элемент управления для редактирования, который состоит из добавления значка слева и кнопки со значком справа, как внутри элемента редактирования. Это требует смещения начальной точки текста (и курсора) вправо на X пикселей. Это также означает, что мне нужно ограничить ширину текста, чтобы освободить место для кнопки справа. Намерение состоит в том, чтобы предоставить как пользовательский значок слева, например, в браузере, так и кнопку "X" справа, чтобы очистить содержимое элемента управления редактирования.

Как компенсировать Rect где нарисовать текст и курсор в TCustomEdit потомок?

4

delphi drawing custom-controls editcontrol

Источник

user988445 13 мар '12 в 01:53

1 ответ

Решение

Другие вопросы по тегам delphi drawing custom-controls editcontrol

user886114 13 мар '12 в 02:14 2012-03-13 02:14 · Accepted Answer · 2012-03-13 02:14

Если вы используете более новую версию Delphi, уже должен быть элемент управления TButtonedEdit, который может выполнять вашу работу.

Если нет, я думаю, что вы можете отправить сообщение EM_SETMARGINS в ваш TCustomEdit, чтобы установить левое и правое поле.

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