Помощник
Здравствуйте, гость ( Вход | Регистрация )
|
|
7:05:2008, 16:35
|
|
Новенький Группа: Новенький Сообщений: 2 Регистрация: 7:05:2008 Пользователь №: 17 119 Репутация: 0
|
Необходимо при создании нескольких компонет типа GroupBox разделять их TSplitter и создавать примыкая по горизонтали
В итоге должно получиться типа как показано на рис в прикрепленном файле
Прикрепленные файлы
|
|
Сообщение
#1
|
|
![]() |
|
|
7:05:2008, 16:44
|
|
Продвинутый Группа: Программист Сообщений: 141 Регистрация: 27:02:2004 Пользователь №: 296 Репутация: 6
|
|
|
Сообщение
#2
|
|
|
|
7:05:2008, 17:59
|
|
Гуру Группа: Достойный программист Сообщений: 306 Регистрация: 5:06:2007 Пользователь №: 11 234 Репутация: 4
|
|
|
Сообщение
#3
|
|
|
|
7:05:2008, 18:30
|
|
Новенький Группа: Новенький Сообщений: 2 Регистрация: 7:05:2008 Пользователь №: 17 119 Репутация: 0
|
Задача стоит следующим образом
необходимо создавать GroupBox а между мини должен быть Split в итоге получается такая картина создаются GroupBox один под другим - это правильно А вот Split создаются под самым нижним , а нужно между GroupBox GroupBox:=TGroupBox.Create(PanelGraf); GroupBox.Parent:=PanelGraf; GroupBox.Name:='GroupBox'+inttoStr(N); GroupBox.Align:=alTop; GroupBox.Top:=PanelGraf.Height; GroupBox.Caption:=CheckListBoxCur.Items.Strings[i]; GroupBox.Top:=(N-1)*200; GroupBox.Height:=200; //(PanelGraf.Height - 10) div N ; GroupBox.Width:=PanelGraf.Width; Split:=TSplitter.Create(PanelGraf); Split.Parent:=PanelGraf; Split.Name:='Splitter'+intToStr(N); Split.Align:=alTop; Split.Width:=7; Split.Color:=clActiveBorder; Split.Top:=PanelGraf.Height; |
|
Сообщение
#4
|
|
|
|
7:05:2008, 23:16
|
|
Продвинутый Группа: Программист Сообщений: 141 Регистрация: 27:02:2004 Пользователь №: 296 Репутация: 6
|
exp99, всё зависит от свойства Top сплиттера. В приведённом коде каждому созданному сплиттеру говорится, что его место - внизу панели; Align=alTop "подтягивает" его к последнему GroupBox'у. Если указать Split.Top между груп-боксами, всё будет ок.
SplitterAlignTest.zip ( 228.02 килобайт )
Кол-во скачиваний: 10Тестовое приложение немного усложнено во имя наглядности. Кликаешь несколько раз "Add Groupbox"; потом выбираешь сплиттер, который хочешь переместить; потом перемещаешь его. Как минимум, тест доказывает возможность перемещения aligned контролов во время исполнения |
|
Сообщение
#5
|
|
![]() |
|
Текстовая версия | Сейчас: 12:10:2008 - 00:33 |