delphi - 更改过程delphi的TColor属性(不起作用)

Question

有人可以向我解释为什么* 1选项不起作用？ ks

我在这里放置了一个简单的代码，因为我想理解为什么代码不接受我在过程中传递了TColor这样的指令

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;

谢谢

Answer 1

选项1不起作用，因为该代码未尝试将任何内容分配给控件的Color属性。它只是将颜色值传递给嵌套过程ChangeColor。嵌套过程唯一要做的就是为传递的参数分配一个值。

如果您希望传递给过程的参数在过程返回后被修改，请阅读有关variable parameters的信息。

如果您希望在嵌套过程本身中更改控件的颜色，请另外阅读properties。