delphi - カスタム TPanel ボーダー

Question

「Ctl3D」を無効にし、TPanel Border Style を「bsSingle」に、TPanel BevelKind を「bkNone」に、TPanel BevelInner を「bvNone」にすると、TPanel Border を Black にできます。しかし、TPanel Border を「青」または「赤」にする必要があります。他の方法は「Caliing Form Paint Event」ですが、私はそれを使用したくありません。私を助けてください。

Answer 1

行く唯一の方法は次のとおりです。

1. およびTCustomPanel.Paintでコードを学習するVcl.ExtCtrls.pas
2. （クラス）でオーバーライドしてTPanel、要件に合わせて調整します。

パネルを含むフォームユニットでインターポーザークラスを使用できます。