Question

delphi edit 颜色问题

当label1<edit1<label2 时为绿色 反之为红色 空白时无色

麻烦帮忙写下

Answer 1

procedure TForm1.Edit1Change(Sender: TObject);
var
lbl1,lbl2,edt1: String;
cl: TColor;
begin
lbl1 := Label1.Caption;
lbl2 := Label2.Caption;
edt1 := Edit1.Text;
if edt1 = '' then cl := clWhite
else begin
if (edt1 > lbl1) and (edt1 < lbl2) then cl := clGreen
else cl := clRed;
end;
Edit1.Color := cl;
end;