散分啦,dbedit的问题!!! ado+access2000adotable的field(access中为float) 与dbedit相连,dbedit要求能输入负数,如果只输入负号,使用鼠标切换焦点,就会报错。不知道怎么自动把负号转化为0? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 pressdown事件中procedure Tform.FormKeyPress(Sender: TObject; var Key: Char);begin if key='-' then key:='0';end; 在dbedit的onexit事件中判断修正这个值,或者使用第三方的数据敏感控件能避免这个问题 boz(波) 的方法不行,当你们次输入‘-’号都会变成‘0’ 我在onexit事件中 if (TDBEdit(Sender).text='-') then TDBEdit(sender).text:='0.00';但是,这样不行,键盘切换焦点,可以通过可keypress和keydown来判断和重新赋值,但用鼠标切换,就不行了 。 我想应该在数据组件的事件中写代码比如在dataset的onchanged事件中 在dataset的onchanged中也不行报错: '-' is not a valid floating point value for field... onexit: if Trim(Edit1.Text) = '-' then Edit1.Text := '0'; procedure Tdbedit1.onexit(Sender: TObject; );begin if Trim(DBEdit1.Text) = '-' then Edit1.Text := '0';end; 我顺便问一个我的DBEDIT怎么不能输入啊 感谢wellnj 帮忙 追加40分,请进来拿分 数据库查询速度 Delphi中使用LoadLibrary和FreeLibrary的问题 为什么delphi2009不能创建ActiveControl? 球助:如何把TRichEdit组件里的内容导入到Word里。 大家帮帮忙吧 ? 安装盘 谁能告诉我delphi6.0中的installshield怎样使 请问如何使用FileListBox的一些属性?小问题!!!高手请进!!!!! 动态建立table的字段! 哪位哥哥能提供关于用DELPHI制作的多媒体课件设计平台的中英文论文啊! DELPHI7的安装问题?
procedure Tform.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key='-' then
key:='0';
end;
if (TDBEdit(Sender).text='-') then TDBEdit(sender).text:='0.00';
但是,这样不行,键盘切换焦点,可以通过可keypress和keydown来判断和重新赋值,
但用鼠标切换,就不行了 。
比如在dataset的onchanged事件中
if Trim(Edit1.Text) = '-' then
Edit1.Text := '0';
begin
if Trim(DBEdit1.Text) = '-' then
Edit1.Text := '0';
end;