Пользовательская граница TPanel

Question

Я могу сделать границу TPanel как черную, отключив «Ctl3D» и стиль границы TPanel как «bsSingle» и TPanel BevelKind как «bkNone» и TPanel BevelInner «bvNone». Но мне нужно сделать TPanel Border как «синий» или «красный». Другой способ - «Calinging Form Paint Event», но я не хочу его использовать. Пожалуйста, помогите мне.

Answer 1

Ваш единственный способ пойти:

1. Исследование TCustomPanel.Paint код в Vcl.ExtCtrls.pas и
2. Override это в TPanel (класс), чтобы адаптировать его к вашему требованию;

Вы можете использовать класс-посредник в форме, содержащей вашу панель.