Элементы управления с автовыравниванием

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

Элементы управления с автовыравниванием

Автор: Ralph Friedman

Я просто хочу в моем модуле заставить перемещаться поле редактирования (компонент Edit) синхронно с перемещением кнопки. При любом перемещении поля редактирования кнопка должна следовать за ним. Покопался в исходном коде VCL, но так ничего и не обнаружил...

При создании кнопки вы должны сделать ее "ребенком" поля редактирования (обычно, parent := self;). Также для компонента вы должны перекрыть метод CreateParams и установить Param.Style следующим образом:

Params.Style or WS_CLIPCHILDREN;