Genel İşlemler - CheckBox false true

var

MyForm:TclForm;

testLabel : TclLabel;

testCheckBox,testCheckBox2 : TClCheckBox;

void ButtonClicked;

var

senderCheckBox:TClCheckBox;

{

senderCheckBox = TClCheckBox(Myform.Clsender);

if senderCheckBox.clTagInt == 1 //testCheckBox kontrol

testCheckBox2.isChecked = senderCheckBox.isChecked

else if senderCheckBox.clTagInt == 2 //testCheckBox kontrol

testCheckBox.isChecked = senderCheckBox.isChecked

}

{

MyForm = TclForm.Create(Self);

testLabel = MyForm.AddNewLabel(MyForm,'testLabel','Your hobbies?');

testLabel.StyledSettings = ssFamily;

testLabel.TextSettings.Font.Size=25;

testLabel.TextSettings.FontColor = clAlphaColor.clHexToColor('#4a08ff');

testLabel.Align = alMostTop;

testLabel.Height = 30;

testCheckBox = MyForm.AddNewCheckBox(MyForm,'testCheckBox','Reading book');

testCheckBox.StyledSettings = ssFamily;

testCheckBox.TextSettings.Font.Size=15;

testCheckBox.TextSettings.FontColor = clAlphaColor.clHexToColor('#272643');

testCheckBox.Align = alTop;

testCheckBox.Height = 30;

testCheckBox.clTagInt = 1;

testCheckBox2 = MyForm.AddNewCheckBox(MyForm,'testCheckBox2','Watching movie');

testCheckBox2.StyledSettings = ssFamily;

testCheckBox2.TextSettings.Font.Size=15;

testCheckBox2.TextSettings.FontColor = clAlphaColor.clHexToColor('#272643');

testCheckBox2.Align = alTop;

testCheckBox2.Height = 30;

testCheckBox2.clTagInt = 2;

MyForm.AddNewEvent(testCheckBox2,tbeOnClick,'ButtonClicked');

MyForm.AddNewEvent(testCheckBox,tbeOnClick,'ButtonClicked');

MyForm.Run;

}