tbDelete.Enabled:=(Astate=0) and 还有这句:(Copy(FAction,3,1)='0') ; btnFilter.Enabled:=Astate=0;
cmbCase.Enabled:=Astate=0;
cmbProject.Enabled:=Astate=0;
cmbSA.Enabled:=Astate=0;
cmbPackage.Enabled:=Astate=0; bbDone.Enabled:=AState<>0;
bbCancel.Enabled:=AState<>0;如题,最好举个例子就太感激了.
cmbCase.Enabled:=Astate=0;
cmbProject.Enabled:=Astate=0;
cmbSA.Enabled:=Astate=0;
cmbPackage.Enabled:=Astate=0; bbDone.Enabled:=AState<>0;
bbCancel.Enabled:=AState<>0;如题,最好举个例子就太感激了.
procedure TForm1.Button1Click(Sender: TObject);
var
b : boolean;
begin
b := True and False; //b为 False
showmessage(booltostr(b));
b := True and True; //b为 True
showmessage(booltostr(b));
end;
else
bbCancel.Enabled:=false;
:= 赋值运算优先基本低于逻辑运算所以
btnFilter.Enabled:=Astate=0
先运算Astate=0得到true或false然后赋给btnFilter.Enabled