Enabledの変更ボタン "Down"ステータスの修正

Question

私はいくつかのTSpeedButtonを複数の用途を持つフォームに持っています。あるモードでは、1つのボタンをクリックしたくないので、 "Enabled：= False;"と設定します。

しかし、それ はダウンだったと私はEnabledにそれを強制場合：= Falseのそれはアップ状態になります。現在の状態を視覚的に表示するために必要なので、現在のアップ/ダウン状態に影響を及ぼす「有効」を防止するにはどうすればよいですか。

Answer 1

要するに、標準TSpeedButtonであなたが求めていることをすることはできません。これはコード化された方法と同じです。

あなたはTSpeedButtonにfalseにEnabledを設定すると、ボタンは関係なく、そのDownプロパティの無効な状態で描かれます。 TSpeedButton.Paint()メソッドは、StateプロパティをbsDisabledに強制し、現在のアップ/ダウン状態をすべて消去します。 Delphi 5では、これによりボタンが上に描かれます。より現代的なDelphiのバージョンでは、ビジュアルスタイルが有効になっている場合、ボタンはUpまたはDownではないフラットな外観で描画されます。

1. がTSpeedButtonから新しいクラスを派生し、あなた自身が、しかし、あなたがしたいボタンをカスタム描くことができるように仮想Paint()メソッドをオーバーライド：

   この動作を変更する唯一の方法は、いずれかのことです。ただし、のボタン全体をボタンで描画する必要があります。

2. 、VCLのButtons.pasソースファイル（XE2でVcl.Buttons.pas以降）のコピーを作成し、プロジェクトにコピーしたファイルを追加します（ランタイムパッケージが無効になっていることを確認してください）、その後、あなたはしかし、あなたのTSpeedButton.Paint()のimplementation自体を変更することができます欲しいです。これがプロジェクトのすべてのTSpeedButtonに影響することをご存知でしょうか。