如何让dbedit中的数据当是负数时显示红色。(50分)

  • 主题发起人 主题发起人 小草
  • 开始时间 开始时间
小

小草

Unregistered / Unconfirmed
GUEST, unregistred user!
如何让dbedit中的数据
当是负数时显示红。
 
procedure TForm1.DBEdit1Change(Sender: TObject);
begin
try
if strtoint(Trim(Dbedit1.Text))<0 then
dbedit1.Font.Color:=clred
else
dbedit1.Font.Color:=clBlack;
except
end;
end;
 
如果dbedit连的字段是 aaa
if fieldbyname('aaa').asfloat < 0 then
dbedit1.Font.Color = clred
else
dbedit1.Font.Color = clblack;
 
对是对
我的意思是自动红色
在什么事件中写
 
在dbedit的onchange事件中写
 
procedure TForm1.Table1SIZEGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
if Table1.FieldByName('size').AsInteger > 10 then
begin
DBEdit1.Font.Color := Clred;
end else
begin
DBEdit1.Font.Color := ClBlack;
end;
DBEdit1.Text := Table1.FieldByName('Size').AsString;
end;
 
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if Column.Field.AsInteger<0 then
Column.Color:=clred;
end;
 
对是对
我的意思是自动红色
在什么事件中写
 
Agree book523
 
我不是DBGRID 我是DBEDIT
 
procedure TForm1.DBEdit1Change(Sender: TObject);
begin
try
if strtoint(Trim(Dbedit1.Text))<0 then
dbedit1.Font.Color:=clred
else
dbedit1.Font.Color:=clBlack;
except
end;
end;
這個不行嗎?應該ok的哦
 
同意楼上的。
 
接受答案了.
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
小
怎么办,像EXCEL中负数为红.怎么办??怎么显示啊.(100分)
回复
8
查看
76
小草
小
阳
为何不显示负号，请高手指教(50分)
回复
1
查看
109
三代坦克
三
C
关于DBGrid的颜色控制的问题(100分)
回复
3
查看
86
cdzerg
C
D
数据库是SQL SERVER，DBGRID怎样可以将如果记录的数量大于100显示红色，小于则为白色？(30分)
回复
6
查看
107
d_delphi
D
后退
顶部