我利用一个三维的控件数组在窗体上动态创建上很多speedbutton控件,我要怎样得到用mouse选中的选一个控件的三维的值呢; 在创建控件的时候,在tag属性里面保存一些数据来表示。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 可是怎么读出来呀,建议自己写点代码,做个类似于tag的三个属性,或者数组,不就可以了拉 楼上说的对,充分利用tag,将tag的值设置为4为数ABCD,A表示你的level,B表示你的order,CD联合起来是你的A.var Mark:String;begin :=IntoToStr(ABCD); level:=StrToInt(leftstr(abcd,1)); order:=strtoint(midstr(abcd,2,1)); A:=strtoint(rightstr(abcd,2));end; 对不起,上面将leftstr,mdistr,rightstr里的abcd换成 写一个MyOnclick,将所有控件的OnClick:=MyOnClick,这样就可以根据MyOnclick传递的Sender来取得Sender的tag啦,分解其tag就知道了呀 抓包一些问题.谢谢解答 请帮我找一下这段关于释放资源文件的代码存在的问题 求视频教程地址 为什么我的ActiveForm里使用Designer.Modified运行时报错?救命!!!!!!!!! 如何自动筛选重复记录(其中有个字段模糊类似)?在线等待 一个表的人数统计问题.请教各位.不管怎样谢谢了. 一个HOOK的小问题 Delphi 打印的超困惑问题! 请教一下,cxgrid怎么知道数据显示完了 问一个写控件时属性值保存的问题。 我在用toolbar空件上右击选new button然后我想调这个new button的大小怎么调啊谢谢我急等 query1.post ???
var
Mark:String;
begin
:=IntoToStr(ABCD);
level:=StrToInt(leftstr(abcd,1));
order:=strtoint(midstr(abcd,2,1));
A:=strtoint(rightstr(abcd,2));
end;
这样就可以根据MyOnclick传递的Sender来取得Sender的tag啦,分解其tag就知道了呀