Работа с GroupBox

← →
Script (2004-03-18 21:33) [0]

У меня вот такая проблема. Есть файл строк, в конце каждой из них спецсимвол. В зависимости от этого символа эта строка должна отображаться либо как RadioButton либо как CheckBox, причем их много Как мне это попроще сделать? Я так мыслю нужно динамически создавать эти кнопки на GroupBox? Тогда вопрос как это сделать и как ловить какие кнопки выбраны?
P.S. И как все это грамотно к ScrollBox привязать?
P.S.S. Заранее всем благодарен, особеннно ответившим ))

← →
Goida © (2004-03-18 21:44) [1]

А зачем тебе элементы хранить в строках? Что-то будет меняться?

← →
Script (2004-03-18 22:16) [2]

Ну вообще это варианты ответов. Некоторые можно совмещать(для них CheckBox) некоторые нет(для них RadioButton). Набор этих вариантов все время разный получается - т.е. либо несколько checkbox"ов либо несколько radiobutton"ов. Пробовал создать и RadioGroup,но там CheckBox нельзя делать :( И ScrollBox на него забивает и на изменение размеров RadioGroup"а не реагирует.

← →
Goida © (2004-03-19 09:45) [3]

На мой взгляд, есть два пути:
1. Создавать динамически;
2. Создать заранее достаточное количество и того и того.

Второй вариант менее сложный, как мне кажется, но первый более экономичный и более рациональный. Нужно использовать динамическое создание элементов.

> Как мне это попроще сделать?

Проще не получится. Нужно все писать руками. Хотя может есть какие-то компоненты где-то, которые позволят динамичесски менять кол-во?... Но я о них не знаю.

> Тогда вопрос как это сделать и как ловить какие кнопки выбраны?

Все это придется описывать. Создавать свои обработчики нажания, изменения (OnClick, OnChange) и т.п. В рантайме привязывать их к созданным объектам. Кроме того, обработчики нужно делать в общем виде.

> P.S. И как все это грамотно к ScrollBox привязать?

Думаю, задать его Parent"ом объектов...

← →
Berkut (2004-03-21 14:46) [4]

var R:array[1..10]of TRadioButton; // это где то в начале прги
C:Array[1..10]of TCheckBox;
Nom:Integer; // Номер нового созданного элемента
// дальше в процедуре
Procedure Button1.Click(Sendre: TObject);
begin
Inc(Nom);// увеличить Nom на 1
if Str:="Спец символ2"then
with C[Nom].Create(Self) do
begin
C[Nom].parent:=ScrollBox1; //ну или еще что нибудь
end;
if Str:="спец символ1" then
with R[Nom].Create(Self) do
begin
R[Nom].parent:=ScrollBox1; //ну или еще что нибудь
end;
end;

не обешаю что это будкт работать но идею ты поймешь )))

http://www.delphikingdom.com/helloworld/runtime_comp.htm

PS
Поветрие чтоли?? Уже наверное с десяток топиков про "вопросы-ответы"...

← →
Плохиш (2004-03-21 16:53) [6]

>KSergey © (21.03.04 14:55) [5]

> Поветрие чтоли?? Уже наверное с десяток топиков про "вопросы-ответы"...

Институтская программа ;-)

Работа с GroupBox Найти похожие ветки