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

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


delphi delphi-xe2 tpanel
person Koushik Halder    schedule 08.01.2012    source источник

Ответы (1)


arrow_upward
2
arrow_downward

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

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

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

person menjaraz    schedule 08.01.2012
comment
Вы можете сделать панель чуть большего размера за ней, покрасить ее в красный цвет и показать/скрыть ее. - person Mawg says reinstate Monica; 15.02.2017