Приветствую, коллеги!

Делаю наследник компонента TLabeledEdit - добавляю к нему кнопку в правый угол поля ввода.
Для корректной отрисовки мне нужно переопределить клиентскую область компонента. Иначе получается так, что при редактировании текста моя кнопка закрашивается цветом фона. 
Мне нужно сделать так, чтобы текст отрисовывался в заданном мной регионе.

Копаясь в VCL, я нашёл только виртуальный GetClientRect. Переопределил его, но не помогло.


TLabeledEdit наследуется от TWinControl.
В TWinControl есть метод procedure TWinControl.WMEraseBkgnd(var Message: TWMEraseBkgnd);
Он пользуется для определения области переопределённым мной GetClientRect.
Под отладкой в переопределённый GetClientRect программа заходит.


Далее я ещё покопал в сторону отрисовки текста: я хотел найти место, где же текст отрисовывается.

Вот таким образом устанавливается свойство Text в компоненте TLabeledEdit: 
1. Это свойство исходит от protected property TControl.Text: TCaption read GetText write SetText;
2. TControl.SetText вызывает SetTextBuf(PChar(Value))
3. TControl.SetTextBuf(Buffer: PChar); вызывает 
Perform(WM_SETTEXT, 0, Longint(Buffer)); 
Perform(CM_TEXTCHANGED, 0, 0);
4. Событие WM_SETTEXT получает TControl.DefaultHandler. Он просто сохраняет полученную строку в свойство FText.
5. Событие CM_TEXTCHANGED получает TWinControl.CMTextChanged и выполняет InvalidateDockHostSite(False);
6. InvalidateDockHostSite не выполняет действий по отрисовке.

Таким образом, я его не нашёл. Что я пропустил?

Можно всё сделать намного проще. Используйте сообщение EM_SETMARGINS для создания свободного места справа, на котором будет размещена ваша кнопка. Текст туда не будет наезжать. 

И не нужно вручную отрисовывать текст — отрисовывайте кнопку. Опытным путем можно найти, какие сообщения, приходящие Edit`у, нужно перехватывать, чтобы перерисовать кнопку. Могу подсказать, что перерисовку кнопки нужно будет осуществлять при получении сообщений WM_PAINT, WM_SETFOCUS и еще CN_COMMAND (только если HIWORD(wParam) = EN_CHANGE).

Я кнопку сам не рисую - использую TBitBtn. Она отрисовывается вместе с компонентом.

Я попытался отправлять сообщение   SendMessage(Handle, EM_SETMARGINS, EC_RIGHTMARGIN, 25 shl 16); в конструкторе компонента.

Но в этом случае, в момент, когда бросаю компонент на форму, появляется сообщение


Что не так?