CreateParamsを動的に変更しますか？

Question

私はTCustomButtonから派生したカスタムボタンコンポーネントを持っています。私のボタンは自分の絵などで[OK]を動作しますが、私は何をしたいのはどのオブジェクトインスペクタにブールプロパティを提供している

procedure TMyButton.CreateParams(var Params: TCreateParams); 
begin 
    inherited CreateParams(Params); 
    with Params do 
    begin 
    Style := Style or BS_OWNERDRAW; 
    end; 
end; 

：それは私はそうのようなCreateParamsををオーバーライドしているownerdrawnようにするに

それがオーナーディルドかどうかを私のボタンに伝えるのに使うことができます。

たとえば、プロパティが有効になっている場合、ボタンは自分のペイントルーチンでオーナー描画ボタンとしてペイントします。プロパティがオフになっている場合は、テーマのWindowsボタンスタイル（通常のTButtonなど）としてペイントする必要があります。

CreateParamsを、それがownerdawnしなければならない私のボタンを伝えますが、私はそれがownerdrawnすべきかどうかのボタンを伝えるためのオプションを提供したいです。実行時にデザイン時またはコードでプロパティを変更することで、私は自分のボタンにオーナー描画するかどうかを伝えたいと思います。

どうすればいいですか？

Answer 1

プロパティの追加とCreateParamsはそれに応じて動作させることは、私が思う問題ではありません。新しい設定をすぐに有効にすると、おそらくそうです。プロパティがトグルされる

コールRecreateWnd。これにより、オーバーライドされたCreateParamsルーチンの使用を含む、現在のWindowsハンドルを削除し、再作成します。すべてのすべてで

：

type 
    TMyButton = class(TButtonControl) 
    private 
    FOwnerDraw: Boolean; 
    procedure SetOwnerDraw(Value: Boolean); 
    protected 
    procedure CreateParams(var Params: TCreateParams); override; 
    published 
    property OwnerDraw: Boolean read FOwnerDraw write SetOwnerDraw 
     default False; 
    end; 

procedure TMyButton.CreateParams(var Params: TCreateParams); 
const 
    OwnerDraws: array[Boolean] of DWORD = (0, BS_OWNERDRAW); 
begin 
    inherited CreateParams(Params); 
    Params.Style := Params.Style or OwnerDraws[FOwnerDraw]; 
end; 

procedure TMyButton.SetOwnerDraw(Value: Boolean); 
begin 
    if FOwnerDraw <> Value then 
    begin 
    FOwnerDraw := Value; 
    RecreateWnd; 
    end; 
end; 

Answer 2

あなたはこのようにそれを行うことができます。

1. OwnerDrawプロパティを確認します。
2. そのプロパティをCreateParamsでテストし、それに応じて動作を切り替えます。
3. プロパティが変更されるたびにRecreateWndを呼び出します。

アイテム3の代わりに、SetWindowLongを呼び出してウィンドウスタイルを変更するだけで済みます。これを試行する前に、HandleAllocatedをテストしてください。ウィンドウを強制的に強制的に作成する必要はありません。しかし、これが起こるときはいつも、ペイントサイクルを強制する必要があるでしょう。

個人的には、私はウィンドウレクリエーションを強制する傾向があると思います。