dbgrideh.columns.buttonstyle:=cbsupdown的相关问题 本帖最后由 zxyyjh 于 2011-12-19 14:56:22 编辑 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 cbsupdown是不会触发EditButtonClick事件的如果你只是想让价格值跟着discount变化,可以使用discount的onchange事件双击adoquery1,选discount,再双击onchange事件procedure tform1.discountChange(sender:tfield);begin adoquery1.fieldbyname('price').asstring:='0';end; 双击adoquery1,是空的,点add fields,会出现missing sql property。点new field的话,一运行就报错,好像只能手动写函数。 没有添加在Fields Editor里面,就动态的在afteropen事件里面写onchange函数:... private procedure discountChange(Sender:TField); { Private declarations } public...procedure tform1.discountChange(sender:tfield);begin adoquery1.fieldbyname('price').asstring:='0';end;procedure tform1.adoquery1AfterOpen(DataSet: TDataSet);begin DataSet.fieldbyname('discount').onchange=discountChange;end; 关于DOWNTO 高手,帮忙改一下代码吧,知道原因,但不道如何改 如何取得内存总量? 字符转换 delphi中如何调用过程函数? 在fastReport中怎样打印隔一行一种背景色的报表? 求:Delphi的Object pascal语法规范 请教如何制作带链接的图片邮件,且图片显示在邮件正文? 急,请问哪里有《Delphi4.0编程技术内幕》下载 一个简单的问题:我在主菜单定义快捷键无效 indy idhttp.get 跳转问题 dbgrideh与dbnavigator通过同一个datasource相连,在dbgrideh已加入一行的情况下,点dbnavigator的+号按钮,为什么是
双击adoquery1,选discount,再双击onchange事件procedure tform1.discountChange(sender:tfield);
begin
adoquery1.fieldbyname('price').asstring:='0';
end;
...
private
procedure discountChange(Sender:TField);
{ Private declarations }
public
...procedure tform1.discountChange(sender:tfield);
begin
adoquery1.fieldbyname('price').asstring:='0';
end;procedure tform1.adoquery1AfterOpen(DataSet: TDataSet);
begin
DataSet.fieldbyname('discount').onchange=discountChange;
end;