| 发表于:2007-09-11 16:11:40 楼主 |
const ed_str= 'ed'; and_str = ' and '; . . . procedure tformbase1.createaedit(sname: string; itime, flag: integer); var edtmp: tdxedit; begin edtmp := tdxedit.create(self); edtmp.name :=sname + ed_str+inttostr(itime);(如果数据库中的字段名是中文字或数据字则出错提示'**is not a valid component name'请问高手要如可解决) edtmp.stylecontroller := dxmystyle; edtmp.parent := tpsearch; edtmp.tag := itime ; edtmp.height := 22; edtmp.top := tpsearch.top+2;//tpsearch.height - edtmp.height-1;// * (itime-1)+2 ; edtmp.text := ''; edtmp.onkeydown := ededitkeydown; edtmp.onchange := editchange; edtmp.width := 0; lstedits.add(edtmp); end; |
|
|
|
|