Question

delphi edit 颜色

当edit大于label数值时 底色为红色 小于时为绿色 无内容时为白色

Answer 1

比如数字在A1-E1，F1为计算结果，在F1输入=sum（A1：E1）
然后选中F1，格式-条件格式，选大于，后面写60，下面选格式，改成红色
这样如果大于60，格式就自动变成红色

Answer 2

procedure TForm1.Edit1Change(Sender: TObject);
begin
try
//if Edit1.Text='' then Edit1.Color := clWindow;

if StrToInt(Edit1.Text)>StrToInt(Label1.Caption) then
Edit1.Color := clRed
else
Edit1.Color := clWindow;
except
Edit1.Color := clWindow;
end;
end;