[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!
Почему такой непорядок и как его исправить?