Показать сообщение отдельно
  #12  
Старый 16.02.2013, 19:18
Аватар для Yurk@
Yurk@ Yurk@ вне форума
Специалист
 
Регистрация: 07.09.2007
Адрес: Украина, г. Днепропетровск
Сообщения: 892
Версия Delphi: 7 + ОгнеПтица
Репутация: выкл
По умолчанию

Цитата:
Сообщение от 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);
выполняется вне зависимости от
Код:
if CheckBox1.Checked

попробуй так:
Код:
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);
__________________
Поживу - увижу, Доживу - узнаю, Выживу - учту.
[P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
Ответить с цитированием