如何取得ColorDialog返回的值

Question

如何取得ColorDialog返回的值
像这样
procedure TForm1.Edit4Change(Sender: TObject);
begin
  if ColorDialog1.Execute then
  edit4.Text := ColorDialog1.Color;
end;应该怎么写呀

Answer 1

procedure TForm1.Button1Click(Sender: TObject);begin
  if ColorDialog1.Execute then Shape1.Color := ColorDialog1.Color;end;
你要赋值给edit4.text的话得先转换类型.

Answer 2

procedure TForm1.Edit4Change(Sender: TObject);
begin
  if ColorDialog1.Execute then
     edit4.color := ColorDialog1.Color;
end;

Answer 3

如果把返回值写把edit4中的话可以这样
procedure TForm1.Edit4Change(Sender: TObject); 
begin 
  if ColorDialog1.Execute then 
    edit4.text := inttostr(ColorDialog1.Color); 
end;