|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Изменение высоты GroupBox во время выполнения программы
написал я такой код:
Код:
procedure TForm1.CheckBox1Click(Sender: TObject); begin if CheckBox1.Checked then begin GroupBox1.Height := 217; GroupBox1.Repaint; end else GroupBox1.Height := 40; GroupBox1.Repaint; Но высота не зависимо от того выбран CheckBox1 или нет - остается 50, а в режиме разработки я высоту для ГрупБокса задал 217! Почему такой непорядок и как его исправить? Последний раз редактировалось M.A.D.M.A.N., 16.02.2013 в 18:14. |
#2
|
||||
|
||||
lostbananan:
Цитата:
MAD: Цитата:
lostbananan: Цитата:
MAD: Цитата:
Последний раз редактировалось M.A.D.M.A.N., 16.02.2013 в 18:19. |
#3
|
|||
|
|||
Спасибо!
А по моему вопросу ничего не подскажите? |
#4
|
||||
|
||||
Констрэйнты (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 — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#5
|
|||
|
|||
У меня не работает однрознрачано, а я не понял что значит колстремы и т.д...
Алайн - насколько я понимаю - выравнивание, а что такое Констрэйнты (constraints? Последний раз редактировалось M.A.D.M.A.N., 16.02.2013 в 18:30. |
#6
|
||||
|
||||
Констрэйнт - ограничение.
Мин/макс высота/ширина. — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#7
|
|||
|
|||
И чего ?
Говорю же НЕ работает! Модернизировал процедуру, код такой: Код:
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); Последний раз редактировалось M.A.D.M.A.N., 16.02.2013 в 18:47. |
#8
|
||||
|
||||
Не верю.
Выложи проект. — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#9
|
|||
|
|||
Модернизировал процедуру, код такой:
Код:
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); Пробывал весь код выложить дак: Вы ввели слишком длинный текст (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., 16.02.2013 в 19:02. |
#10
|
||||
|
||||
В аттач положи или залей на файлообменник.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#11
|
|||
|
|||
Кидаю весь код...
Что-то не открывается по кнопке атач сейчас сбьрошу на йфайлообменник ЭНЭЕа - я таки его смого приатачить.... |
#12
|
||||
|
||||
Цитата:
сответственно код Код:
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.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
Последний раз редактировалось Yurk@, 16.02.2013 в 19:21. |
Этот пользователь сказал Спасибо Yurk@ за это полезное сообщение: | ||
lostbananan (16.02.2013)
|
#13
|
|||
|
|||
Большое спасибо! Здесь сработала моя невнимательность!
|