怎么把pagecontrol当前页上的edit赋值到stringgrid里?
如何把当前活动页的相关字段赋值到下面的stringgrid中呢?最终实现的效果是:
名称及规格 | 件数 | 重量
板材 AXBXC | 1 | 1
Z型钢 AXBXC | 1 | 1
现在的困扰我的地方是如果名称可以用Pagecontrol.Active.caption赋值的话,那规格怎么办呢?数量怎么办?我每个tabsheet下面都会有一个edit,用来作为“件数”变量的输入,也有很多edit作为不同类型钢材的“A、B、C等参数”的输入,全部edit加起来有70多个了,想了好几天都不知道怎么处理,请大家帮帮忙
[解决办法]
其实你这些EDIT应该放到pagecontrol的外部,只是显示在所有TabSheet的上面,则达到了共享的效果了。
如有不同的地方则根据:Pagecontrol.Active来判断就OK了
[解决办法]
你的意思是只对当前tabsheet上的edit赋值还是pagecontrol上的edit赋值?根据你自己的业务逻辑,在事件里面添加就好了呀。
procedure TForml.:ButtonlClick(Sender:’rObject); var I,J:Integer; begin with StringGrid 1 do for I:=0 to ColCount一1 do for J:=O to RowCount—l do Cells[I,J]:=edit.text; end;