代码如下:
CreateComponentEx(p,"label","caption","校验数据:","left",10 ,"top",8,"width",170,"height",20,0);
edtSdTxt=CreateComponentEx(p,"memo","text","12 D4 AA 8E","left",10,"top",25,"width",370,"height",130,"scrollbars","ssboth",0);
int button0=CreateComponentEx(p,"button","caption","取发送区反选数据","left",80 ,"top",3,"width",140,"height",20,"OnClick",OnGetSelDat,0);
int button1=CreateComponentEx(p,"button","caption","取发送区所有数据","left",240,"top",3,"width",140,"height",20,"OnClick",OnGetAllDat,0);
CreateComponentEx(p,"label","caption","校验算法:","left",400 ,"top",8,"width",170,"height",20,0); cbx1=CreateComponentEx(p,"combobox","left",460,"top",3,"width",220,"height",20,"style","csdropdownlist","itemindex",2,NULL);//创建按钮
CreateComponentEx(p,"label","caption","十进制求和结果:","left",400,"top",38,"width",170,"height",20,0);
edtSumTxt=CreateComponentEx(p,"edit","text","","left",100+400,"top",35,"width",180,"height",20,0);
int lblDatLen=CreateComponentEx(p,"label","caption","数据长度:","left", 400,"top",93,"width",170,"height",20,0);
edtDatLen=CreateComponentEx(p,"edit","text","","left",100+400,"top",90,"width",180,"height",20,0);
int lblSumTxt1=CreateComponentEx(p,"label","caption","16进制结果(8bit):","left", 400,"top",68,"width",170,"height",20,0);
edtSumTxt1=CreateComponentEx(p,"edit","text","","left",100+400,"top",65,"width",180,"height",20,0);
int button2=CreateComponentEx(p,"button","caption","计算校验","left", 400,"top",125,"width",130,"height",30,"onclick",OnCalcCheckVal,0);
int button1=CreateComponentEx(p,"button","caption","关闭","left", 550,"top",125,"width",130,"height",30,"onclick",OnClose,0);
CreateComponentEx(p,"label","caption","校验数据:","left",10 ,"top",8,"width",170,"height",20,0);
edtSdTxt=CreateComponentEx(p,"memo","text","12 D4 AA 8E","left",10,"top",25,"width",370,"height",130,"scrollbars","ssboth",0);
int button0=CreateComponentEx(p,"button","caption","取发送区反选数据","left",80 ,"top",3,"width",140,"height",20,"OnClick",OnGetSelDat,0);
int button1=CreateComponentEx(p,"button","caption","取发送区所有数据","left",240,"top",3,"width",140,"height",20,"OnClick",OnGetAllDat,0);
CreateComponentEx(p,"label","caption","校验算法:","left",400 ,"top",8,"width",170,"height",20,0); cbx1=CreateComponentEx(p,"combobox","left",460,"top",3,"width",220,"height",20,"style","csdropdownlist","itemindex",2,NULL);//创建按钮
CreateComponentEx(p,"label","caption","十进制求和结果:","left",400,"top",38,"width",170,"height",20,0);
edtSumTxt=CreateComponentEx(p,"edit","text","","left",100+400,"top",35,"width",180,"height",20,0);
int lblDatLen=CreateComponentEx(p,"label","caption","数据长度:","left", 400,"top",93,"width",170,"height",20,0);
edtDatLen=CreateComponentEx(p,"edit","text","","left",100+400,"top",90,"width",180,"height",20,0);
int lblSumTxt1=CreateComponentEx(p,"label","caption","16进制结果(8bit):","left", 400,"top",68,"width",170,"height",20,0);
edtSumTxt1=CreateComponentEx(p,"edit","text","","left",100+400,"top",65,"width",180,"height",20,0);
int button2=CreateComponentEx(p,"button","caption","计算校验","left", 400,"top",125,"width",130,"height",30,"onclick",OnCalcCheckVal,0);
int button1=CreateComponentEx(p,"button","caption","关闭","left", 550,"top",125,"width",130,"height",30,"onclick",OnClose,0);
解决方案 »
- 救助..TreeView自动刷新问题...
- 致杭州的DELPHI程序员----必看!
- 找Delphi8的升级包 updates2
- 恭喜【雍雍】荣升斑之位(怎么这么快)
- 如何删除表中的所有记录?
- 关于delphi的拷贝构造函数
- delphi中如何在 edit中判断是否为数字?
- 请教:使用webactionitem的pathinfo遇到的问题
- 怎样访问ADODataset中被删除但未提交的记录行
- 主程序调用DLL,嵌入到主程序的PANEL,运行是有时候出现USER32.DLL错误
- TChart曲线分析问题(高分)
- DataModule中添加了adoconnection、adquery、datasource。窗体dbgrid无法显示!
或本站资源:commbox