[lostbananan]

написал я такой код:

Код:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked then
    begin
      GroupBox1.Height := 217;
      GroupBox1.Repaint;
    end
  else
    GroupBox1.Height := 40;
    GroupBox1.Repaint;

MAD: Используйте тег CODE.
Но высота не зависимо от того выбран CheckBox1 или нет - остается 50, а в режиме разработки я высоту для ГрупБокса задал 217!
Почему такой непорядок и как его исправить?

[lostbananan]

lostbananan:

А в чем нарушение правил???

MAD:

Если постишь код, надо его помечать тегом CODE, там кнопка есть.

http://delphisources.ru/pages/forum_rules.html
пункт 2.8

lostbananan:

холрошу - буду помечать, может бан снимете.?

MAD:

Ладно.
Но смотри.

[lostbananan]

Спасибо!
А по моему вопросу ничего не подскажите?

[M.A.D.M.A.N.]

Констрэйнты (constraints) или Алайны (align) не применены к гроупбоксу?
Ибо у меня работает

Код:

  if chk1.Checked then
    grp1.Height := 100
  else
    grp1.Height := 200;

object grp1: TGroupBox
  Left = 24
  Top = 80
  Width = 185
  Height = 105
  Caption = 'grp1'
  TabOrder = 0
end
object chk1: TCheckBox
  Left = 24
  Top = 48
  Width = 97
  Height = 17
  Caption = 'chk1'
  TabOrder = 1
  OnClick = chk1Click
end

[lostbananan]

У меня не работает однрознрачано, а я не понял что значит колстремы и т.д...

Алайн - насколько я понимаю - выравнивание, а что такое Констрэйнты (constraints?

[M.A.D.M.A.N.]

Констрэйнт - ограничение.
Мин/макс высота/ширина.

[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!

[M.A.D.M.A.N.]

Не верю.
Выложи проект.

[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!

Пробывал весь код выложить дак:
Вы ввели слишком длинный текст (21722 символов). Пожалуйста, сократите его до 10000 символов
Лан даю код по ЧекБоксу:

Код:

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);
 // òóò òðåáà áóäå ïîãðàòèñÿ ç âèñîòîþ ôîðìè!}
end;

[M.A.D.M.A.N.]

В аттач положи или залей на файлообменник.

[lostbananan]

Кидаю весь код...
Что-то не открывается по кнопке атач
сейчас сбьрошу на йфайлообменник
ЭНЭЕа - я таки его смого приатачить....

[Yurk@]

Сообщение от 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);

[lostbananan]

Большое спасибо! Здесь сработала моя невнимательность!