改变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;
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;
解决方案 »
- 急!delphi编写数据库升级函数的问题
- 关于日历的操作?急求得?希望高手指教?不够再加分!!!!!
- 报表的Detail行本来是根据记录数自动伸缩的,我想固定其高度,应该怎样实现?
- 我在程序里写了insert语句也执行成功了,但在sql explorer的data里却找不到该条记录?但insert相同记录却也提示记录重复?interbase数据
- 有关dll调用问题,急,在线等待,马上给给分
- 菜鸟提问:delphi野指针的问题!!!
- 请问如何把stringgrid的内容打印成报表!
- 关于TwwDBGrid问题,急!急!
- 求助!!!“不能访问Windows Installer服务”
- delphi 6安装在nt下有问题?
- 帮忙?
- 如何向Dll传递参数
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;
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;
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;