Здравствуйте. На работе дали задание написать программу для тестирования. Так как вопросы и ответы могут содержать от нескольких слов до целого абзаца необходимо использовать динамически расширяющиеся компоненты, как в HTML, может кто подскажет?

не совсем понятно   , но, похоже , Edit для нескольких слов и Memo для абзаца, или, что вероятнее, Label c Autosize->True и переносом строк по \n , или StaticText , правда, там не будет Autosize , если с переносом строк по \n  - это для вопросов , для ответов - RadioGroup c количеством Items , равным количЕству возможных ответов, из которых только один будет правильным, или, если правильных ответов может быть несколько, CheckBox'ы и GroupBox .

Это сообщение отредактировал(а) oldcode - 10.12.2010, 04:12

Компонент TWebBrowser тебе поможет.
Генерируеш страничку. По нажатию на кнопку Ok обрабатываеш DOM.

Засунуть текст до 2кб:


Работа через DOM не знаю как происходит. Видел пример, но не разбирался.

Вот это и проблема что и вопросы и ответы могут быть от нескольких слов до целого абзаца. Да, необходимо будет рядом проставить боксы. Сейчас играюсь с выше обозначенными компонентами.
Вот что то типа этого должно быть. Высота компонентов содержащих текст должна меняться в зависимости от количества текста.


Интересный компонент Label, поставил у него AutoSize и WordWrap = true, все вроде так как хотел, но при помещении в него текста приходится определять его ширину иначе его растягивает по высоте.

void __fastcall TForm1::Button2Click(TObject *Sender)
{
Label1->Width = Panel1->Width - 30;
Label1->Caption = Label1->Caption + " Label1 Label1 Label1 Label1 Label1 Label1 Label1 Label1 Label1 Label1";
Form1->Caption = "H:" + (String)Label1->Height + " W:" + (String)Label1->Width;
}

И еще в FormResize пришлось вписать определении ширины и отключении и включении AutoSize, может есть функция? Дабы не дергать AutoSize.

void __fastcall TForm1::FormResize(TObject *Sender)
{
Label1->Width = Panel1->Width - 30;
Label1->AutoSize = false;
Label1->AutoSize = true;
//Label1->Repaint();
//Label1->Refresh();
//Label1->Update();
Form1->Caption = "H:" + (String)Label1->Height + " W:" + (String)Label1->Width;
}

Это сообщение отредактировал(а) desivers - 11.12.2010, 11:14