Цитата:
Сообщение от lostbananan
Модернизировал процедуру, код такой:
Код:
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
begin
Form1.Caption := 'Агресія входить до іспиту';
GroupBox1.Height := 217;
GroupBox1.Repaint;
Form1.Caption := IntTostr(GroupBox1.Height);
end
else
Form1.Caption := 'Не входить до іспиту агресія';
GroupBox1.Height := 40;
GroupBox1.Repaint;
Form1.Caption := IntTostr(GroupBox1.Height);
Так Form1.Caption всгеда остается 40!
|
а чё ему меняться то, если у тебя после
else нету
begin ... end; ???
сответственно код
Код:
GroupBox1.Height := 40;
GroupBox1.Repaint;
Form1.Caption := IntTostr(GroupBox1.Height);
выполняется вне зависимости от
попробуй так:
Код:
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
begin
Form1.Caption := 'Агресія входить до іспиту';
GroupBox1.Height := 217;
end
else
begin
Form1.Caption := 'Не входить до іспиту агресія';
GroupBox1.Height := 40;
end;
GroupBox1.Repaint;
Form1.Caption := IntTostr(GroupBox1.Height);