カスタムTPanelボーダー

Question

"Ctl3D"とTPanelボーダースタイルを "bsSingle"、TPanel BevelKindを "bkNone"、TPanel BevelInner "bvNone"を無効にしてTPanel Borderを黒色にすることができます。しかし、私の必要性は、TPanel Borderを "Blue"または "Red"とすることです。もう1つの方法は、 "Caliing Form Paint Event"ですが、私はそれを使用したくありません。 私を助けてください。どこへ行く

Answer 1

あなたの唯一の方法は次のとおりです。

1. 研究Vcl.ExtCtrls.pasでTCustomPanel.Paintコードと
2. オーバーライドそれTPanel（クラス）でのあなたの条件にそれを調整します。

インターポーザークラスは、パネルを含むフォーム単位で使用できます。