Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Панель и прокрутка [D7, WinXP]


Gorlum2000 ©   (2005-08-22 13:15:00) 

Динамически формирую на панели чек-боксы (друг под другом).
Хотелось бы сделать так, чтобы если их количество заходит за пределы высоты панели, на панели появлялась бы полоса прокрутки.
Но никакого свойства, связанного со скроллингом, я у панели не вижу. Как реализовать скроллинг на панели? Если нельзя сделать это с панелью, то чем ее можно заменить, чтобы все-таки был скроллинг?

While not tblExamsAnswers.Eof do begin
     i:=i+1;
     v_gChecks[i]:=TcxCheckBox.Create(nil);
     v_gChecks[i].Parent:=Panel;
     v_gChecks[i].Style.Font.Size:=15;
     v_gChecks[i].Name:='cb'+tblExamsAnswers.FieldByName('ExamsAnswerID').AsString;
     v_gChecks[i].Properties.Caption:=tblExamsAnswers.FieldByName('AnswerBody').AsString;
     v_gChecks[i].Properties.MultiLine:=true;
     v_gChecks[i].Visible:=true;
     v_gChecks[i].Width:=1000;
     v_gChecks[i].Top:=(i-1)*100+10;
     v_gChecks[i].Checked:=tblExamsAnswers.FieldByName('UserAnswer').AsBoolean;
     v_gChecks[i].OnClick:=Clicker;
     tblExamsAnswers.Next;
End;


Юрий Зотов   (2005-08-22 13:32:00) [1]

ScrollBox без панели.


Gorlum2000   (2005-08-22 13:21:00) [2]

Ага, спасибо. Я уже увидел подобный вопрос на этой странице, прошу прощения ...


Floppy   (2005-08-22 13:19:00) [3]

ScrollBox на панели


Наверх

Титульная страница Поиск, карта сайта Написать письмо