Я хочу сделать компонент на основе TFrame
сTLMDShapeControl
(для рисования фона закругленного угла )и элемента управления TEdit
(, который также может быть TComboBox
или TDBEdit
и т. д. ). После этого я воспользуюсь командой «Добавить в палитру», чтобы превратить ее в повторно используемый элемент управления компонентом.
Проблема в том, что мне нужно, чтобы он был гибким по ширине, и для этого у меня возникла идея повернуть все внутри фрейма alClient
и TEdit
с отступом в 5 пикселей, чтобы пользователь мог видеть закругленные углы.
Это было ужасно, потому что я не могу использовать Align
и ставить компоненты один поверх другого. Теперь мне приходится копировать и вставлять компоненты каждый раз, когда я должен его использовать!:-(((
Единственный способ, который я вижу правильным, — это использовать только TEdit
с alClient
и полем 5 пикселей и без TShape
. Вместо этого я мог бы сделать TFrame
закругленным углом с прозрачностью, чтобы он не выглядел некрасиво на разных цветах или TImages
.
Но как мне это сделать?
У кого-нибудь есть образец кода?