Question

问题1：delphi中如何设置能让控件随窗口按比例大小变化？ 问题2：下面代码哪里是不是有问题？

我想在点击listbox中不同表时，dbedit上能够显示各表中的数据，我运行时会出现三个错误窗口，但结果是能实现的
忘记放代码了
procedure TForm12.ListBox1Click(Sender: TObject);
begin
case listbox1.ItemIndex of
0:
begin
dbedit1.DataSource :=datasource1;
dbedit1.DataField:='行业id';
dbedit2.DataSource :=datasource1;
dbedit2.DataField:='行业名称';
dbedit3.DataSource :=datasource1;
dbedit3.DataField:='行业描述';
end;
1:
begin
dbedit1.DataSource :=datasource2;
dbedit1.DataField:='客户等级id';
dbedit2.DataSource :=datasource2;
dbedit2.DataField:='客户等级名称';
dbedit3.DataSource :=datasource2;
dbedit3.DataField:='客户等级描述';
end;
2:
begin
dbedit1.DataSource :=datasource3;
dbedit1.DataField:='客户类型id';
dbedit2.DataSource :=datasource3;
dbedit2.DataField:='客户类型名称';
dbedit3.DataSource :=datasource3;
dbedit3.DataField:='客户类型描述';
end;





Answer 1

问题1：一个form上放2个panel，一个的Align = alLeft，另一个为alClient就是一个左右结构的表单了。
问题2：设计界面上，把dbedit1，2，3的DataSource属性和DataField清除掉。这类表单建议使用PageControl，一个页面对应一个基础表的操作，减低维护成本。

追问

问题1：如果不止两个两个控件呢，有十几个edit；
问题2：datasource我是连着各自表的adotable，去掉就能显示了，datafield我本来就去掉的

追答

panel上可以再放2个panel，做左右或上下结构的设计。

那就有可能datasource1挂错了。

可跟踪下，还是建议分页显示，少很多事，就组件多点。Delphi做数据集就是拖放组件的事，多花功夫在后台数据库。