?? checkunit.pas
字號:
unit CheckUnit;
interface
type
TRelation=class
public
T1,T2,T3,C1,C2:boolean;
Checked1,Checked2,Checked3:boolean;
constructor Create;
procedure ButtonCheck1(status:boolean);
procedure ButtonCheck2(status:boolean);
procedure ButtonCheck3(status:boolean);
end;
implementation
constructor TRelation.Create;
begin
T1:=false;
T2:=false;
T3:=false;
C1:=false;
C2:=false;
Checked1:=false;
Checked2:=false;
Checked3:=false;
end;
procedure TRelation.ButtonCheck1(status:boolean);
begin
Checked1:=status;
if(Checked1=true)then
begin
T1:=true;
if(T2)then
C1:=true else
if(T3)then
C2:=true;
end else
begin
T1:=false;
if(T2)then
C1:=false
else
if(T3)then
C2:=false;
end;
end;
procedure TRelation.ButtonCheck2(status:boolean);
begin
Checked2:=status;
if(Checked2)then
begin
T2:=true;
if(T1)then
C1:=true;
if(T3)then
C2:=true;
end else
begin
T2:=false;
C1:=false;
if(not T1)then
C2:=false;
end;
end;
procedure TRelation.ButtonCheck3(status:boolean);
begin
Checked3:=status;
if(Checked3)then
begin
T3:=true;
if(T1 or T2)then
begin
C2:=true;
end;
end else
begin
T3:=false;
C2:=false;
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -