如何在Dbedit中保证“-”(负号)只能输入在第一位? 谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在DBEdit的OnKeyPress事件中:procedure TForm1.DBEdit1KeyPress(Sender: TObject; var Key: Char);begin if Key = '-' then if (Pos('-', DBEdit1.Text) > 0) or (DBEdit1.SelStart > 0) then Key := #0;end; 在OnKeyPress里面判断 你通过粘贴的办法一样能随意 可能不要那么复杂。DBEdit本身从TMaskEdit继承,所有具有MaskEdit的特质。身边没有Delphi,不知道Field中有没有EditFormat的属性,如果有,试着写-99999999999999试试。(Borland公司打击盗版,我机器上不能装,只能靠记性) Field有EditMask属性,是可以的。或者在OnChange中判断,防止粘贴时的问题:procedure TForm1.DBEdit1Change(Sender: TObject);begin DBEdit1.Text := Copy(DBEdit1.Text, 1, 1) + StringReplace(Copy(DBEdit1.Text, 2, Length(DBEdit1.Text)), '-', '', []);end; 招聘资深delphi程序员 下辈子要当作曲家~~ 应当如何获得访问本机共享文件的非本机用户的信息和被访问的文件信息(急) 向核桃、夜星以及所有D版朋友道歉--修罗 谁能告诉我 INTERBASE的连接问题 明天 我再送分给好汉们 关于文件替换的问题 弱弱的一个问题,delphi下用什么报表呢?fast report ,水晶,请问能否用b/s下的报表,如润乾,如意. 移动加权平均法 大家都来复习一下计算机基础吧! 又一个简单的问题,请高手帮小妹解答 为什么用text数据类型会发生错误? 你一定知道怎么解答这个问题,帮帮忙
procedure TForm1.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = '-' then
if (Pos('-', DBEdit1.Text) > 0) or (DBEdit1.SelStart > 0) then
Key := #0;
end;
(Borland公司打击盗版,我机器上不能装,只能靠记性)
procedure TForm1.DBEdit1Change(Sender: TObject);
begin
DBEdit1.Text :=
Copy(DBEdit1.Text, 1, 1) +
StringReplace(Copy(DBEdit1.Text, 2, Length(DBEdit1.Text)), '-', '', []);
end;