改变ComboBox的值时如何改变其他的Edit的值？

Question

改变ComboBox的值时如何改变其他的Edit的值？下列可以实现吗？procedure TForm1.ComboBox1MeasureItem(Control: TWinControl; Index: Integer;
  var Height: Integer);
begin
  if ComboBox1.SelText='8' then
  begin
    Edit6.Clear;
    Edit7.Text:='264';
    Edit8.Text:='21.6';
  end
  else if ComboBox1.Items.Text='9' then
  begin
    Edit7.Text:='324';
    Edit8.Text:='23.8';
  end
  else if ComboBox1.Items.Text='10' then
  begin
    Edit7.Text:='390';
    Edit8.Text:='26.0';
  end;
end;

Answer 1

onchange事件里可以添加代码实现！

Answer 2

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.Text='8' then
  begin
    Edit6.Text:='';
    Edit7.Text:='264';
    Edit8.Text:='21.6';
  end
  else if ComboBox1.Text='9' then
  begin
    Edit7.Text:='324';
    Edit8.Text:='23.8';
  end
  else if ComboBox1.Text='10' then
  begin
    Edit7.Text:='390';
    Edit8.Text:='26.0';
  end;
end;

Answer 3

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.Text='8' then
  begin
    Edit6.Text:='';
    Edit7.Text:='264';
    Edit8.Text:='21.6';
  end
  else if ComboBox1.Text='9' then
  begin
    Edit7.Text:='324';
    Edit8.Text:='23.8';
  end
  else if ComboBox1.Text='10' then
  begin
    Edit7.Text:='390';
    Edit8.Text:='26.0';
  end;
 edit6.update;
 edit7.update;
 edit8.update;
end;

Answer 4

onchange或oncloseup事件里可以添加代码实现！
case ComboBox1.ItemIndex of 
0:begin//第1项是:8
    Edit6.Clear;
    Edit7.Text:='264';
    Edit8.Text:='21.6';
  end;
1:begin//第2项是:9
    Edit7.Text:='324';
    Edit8.Text:='23.8';
  end;
2:begin//第3项是:10
    Edit7.Text:='390';
    Edit8.Text:='26.0';
  end;
end;