プロシージャー上のTColorプロパティーを変更する（機能しない）

Question

* 1のオプションが機能しない理由を説明できる人がいますか？ TKS

私はコードは、私が

procedure TForm1.BitBtn1Click(Sender: TObject); 
    procedure ChangeColor(Value : TColor); 
    begin 
    //*1 
    Value := clRed; 
    end; 
begin 
    //*1 IT DOESN'T WORK 
    ChangeColor(Edit1.Color); 
    ChangeColor(ComboBox1.Color); 

//----------------------------------// 

    //*2 IT WORKS 
    Edit1.Color := clRed; 
    ComboBox1.Color := clRed; 
end; 

手順で命令のようなTColorのを渡す受け入れない理由を理解したいと思いますので、私はここに簡単なコードを入れては

Answer 1

オプション1は動作しません。ありがとうございましたコードでコントロールのColorプロパティに何も割り当てられないためです。ネストされたプロシージャChangeColorにカラー値を渡すだけです。ネストしたプロシージャが行う唯一のことは、渡されたパラメータに値を割り当てることです。

プロシージャに渡されたパラメータがプロシージャの戻り後に変更されることが予想される場合は、約variable parametersと読んでください。

ネストされたプロシージャ自体でコントロールの色を変更する必要がある場合は、さらにpropertiesを参照してください。

Answer 2

Sertacによって注意制限の回避策ではなくprocedureのfunctionを使用することです：

procedure TForm1.BitBtn1Click(Sender: TObject); 

    function ChangeColor: TColor; 
    begin 
    Result := clRed; 
    end; 

begin 
    Edit1.Color := ChangeColor; 
    ComboBox1.Color := ChangeColor; 
end; 

私はあなたが手順を使用する理由はなく、定数を割り当てることが、よりに起因していると仮定します複雑なロジックである。

Answer 3

あなたはRTTIで動作するように試みることができます。

uses System.TypInfo; 

procedure UpdateColorProperty(Ctrl : TControl; const aColor : Tcolor); 
var PropInfo : PPropinfo; 
begin 
    if aColor = clNone then Exit; 
    if Assigned(Ctrl) then begin 
    PropInfo := GetPropInfo(Ctrl, 'Color'); 
    if PropInfo <> nil then 
     SetPropValue(Ctrl, 'Color', aColor); 
    end; 
end; 

Answer 4

あなたがこれを行うことができます：

procedure ChangeColor(aComponent : TComponent); 
    begin 
    If aComponent is TEdit then TEdit(aComponent).Color := clRed; 
    If aComponent is TComboBox then TComboBox(aComponent).Color := clRed; 
    end; 

それは限り、あなたは、事前にあなたがサポートするすべてのクラスを知っているように動作します。