Ув. Дмитрий. Как изменить цвет текста в чекбоксе при условии? Не получается. Помогите пожалуйста. Можете показать на примере исправленного вами проекта в посте 20?
На Form1 имеется Checkbox1, 2, 3 и 4. Вот на примере этого скрипта.
procedure Form1_CheckBox4_OnClick (Sender: TObject);
var
a: string;
begin
if Form1.CheckBox4.Checked then
begin
Form1.Edit5.Value:= StrToInt(SQLExecute('Select id from answers where answer='''+Form1.ComboBox4.Text+''' and answers.id_questions='+IntToStr(Form1.ComboQuestion.dbItemID)));
Form1.ComboAnswer.dbItemID:= StrToInt(Form1.Edit5.Text);
a:= SQLExecute('select answer from answers where answers.id_questions='+IntToStr(Form1.ComboQuestion.dbItemID)+' and answers.correct = 1');
if a = Form1.ComboBox4.Text then
begin
Form1.CheckBox4.Color:= clGreen;
Form1.Label1.Caption:= 'Правильно!';
Form1.Label1.Visible:= True;
end else
begin
Form1.CheckBox4.Color:= clRed;
Form1.Label1.Caption:= 'Не правильно!';
Form1.Label1.Visible:= True;
end;
Form1.bPause.Click;
SQLExecute('INSERT INTO exam (id_students, id_questions, id_answers) VALUES ('+Form1.ComboStudent.sqlValue+', '+Form1.ComboQuestion.sqlValue+', '+Form1.ComboAnswer.sqlValue+')');
Form1.Button1.Click;
Form1.bStart1.Click;
Form1.GroupBox2.Enabled:= False;
end;
end;
Спасибо заранее.