Пользовательские TPanel Border

Question

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

Answer 1

Ваш единственный путь:

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

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