delphi动态创建的TMSComm串口控件不起作用！

来源：互联网发布：360软件管家安卓版编辑：程序博客网时间：2024/05/21 14:58

我是用Create动态创建的TMSComm
然后将Comport和OnComm事件赋值
将句柄赋给一个var 变量
打开串口都很成功，而且访问串口的属性也都没有问题
就是串口输入的时候没有任何反应.
如果我直接将控件拖放到主界面就没有问题
郁闷，搞不明白！！！！！

lxz3000("It"业小虾米) ( 一级(初级) ) 信誉：100 Blog 2006-8-5 10:59:51 得分: 0 Com口可以发送数据，但是无法响应我赋给OnComm事件的函数！ MsComm1.OnComm:=ComGetData; 我把ComGetData申明为Public lxz3000("It"业小虾米) ( 一级(初级) ) 信誉：100 Blog 2006-8-5 11:01:14 得分: 0 Com口可以发送数据，但是无法响应我赋给OnComm事件的函数！ MsComm1.OnComm:=ComGetData; 我把ComGetData申明为Public Top QQgenie(妖魔鬼怪) ( 二级(初级) ) 信誉：100 Blog 2006-8-5 11:13:59 得分: 20 Com口可以发送数据，但是无法响应我赋给OnComm事件的函数！ MsComm1.OnComm:=ComGetData; 我把ComGetData申明为Public ---------------------------------------- 你的ComGetData中，有指明是从MsComm1接收吗？ Top lxz3000("It"业小虾米) ( 一级(初级) ) 信誉：100 Blog 2006-8-5 11:27:33 得分: 0 如何指明？因为要做到动态创建,无法指定，我将ComGetData(sender:TObject) 中的Sender转为TMSComm(Sender） Top QQgenie(妖魔鬼怪) ( 二级(初级) ) 信誉：100 Blog 2006-8-5 11:33:53 得分: 0 procedure TForm1.FormCreate(Sender: TObject); var Mscomm1:TMSComm; begin Mscomm1:=TMSComm.Create(); Mscomm1.InBufferCount :=0; // 清空接收缓冲区 Mscomm1.InputLen :=0; // Input读取整个缓冲区内容 Mscomm1.RThreshold :=1; // 每次接收到字符即产生OnComm事件 end; procedure TForm1.ComGetData(Sender:TObject); begin if (sender is TMSComm) then if (sender is TMSComm).CommEvent = 2 then Memo1.text:=Memo1.Text+(sender is TMSComm).Input; end; Top QQgenie(妖魔鬼怪) ( 二级(初级) ) 信誉：100 Blog 2006-8-5 11:38:51 得分: 0 MsComm1.OnComm:=ComGetData; //加上 “大写空格”要去掉，呵呵 Top lxz3000("It"业小虾米) ( 一级(初级) ) 信誉：100 Blog 2006-8-5 11:55:16 得分: 0 非常感谢，我试试！ Top lxz3000("It"业小虾米) ( 一级(初级) ) 信誉：100 Blog 2006-8-5 12:06:13 得分: 0 啊！幸福啊！！终于搞定了！！！衷心感谢QQgenie(妖魔鬼怪) ！！！就是 Mscomm1.RThreshold :=1; // 每次接收到字符即产生OnComm事件 Top