| Schumi |
| Отправлено: 30.10.2003, 18:58 |
|
Машинист паровоза
Группа: Участник
Сообщений: 206
|
Есть набор вкладок:есть одна вкладка на которой создаю TMemo,обрамлённые GroupBox.Идут сверху вниз.Но не появляется вертикальная прокрутка.
| CODE |
for(int i=0;i<=Num;i++)
{
box=new TGroupBox(BaseForm->tsComment);
box->Parent=BaseForm->tsComment;
ptr=new TMemo(box);
ptr->Parent=box;
ptr->Font->Name="Times New Roman";
ptr->Font->Size=10;
box->Left=150;
box->Height=100;
box->Top=15+i*(box->Height+20);
box->Width=598;
ptr->Align=alClient;
if (i==0) box->Caption="...";
else box->Caption="..."+IntToStr(i)+":";
ptr->Text=Comments[i];
ptr->Tag=i;
ptr->OnChange=BaseForm->mmCommentChange;
ptr->ScrollBars=ssVertical;
}
|
Здесь: tsComment — одна из вкладок (TabSheet) набора PageControl;
Comments — массив AnsiString;
TMemo *ptr;
TGroupBox *box;
|
|
| Gedeon |
| Отправлено: 31.10.2003, 12:09 |
|
Ветеран
Группа: Модератор
Сообщений: 1742
|
Странно, у меня работает, вот в новом проекте:
| CODE |
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int i = 0;
AnsiString Text[10] = {"1","2","3","4","5","6","7","8","9","10"};
Memo = new TMemo(this);
Memo->Parent = GroupBox1;
Memo->Font->Name="Times New Roman";
Memo->Font->Size=10;
Memo->Align=alClient;
Memo->Tag=i;
Memo->Text = Text[3];
Memo->ScrollBars=ssVertical;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
delete Memo;
}
//---------------------------------------------------------------------------
|
Вертикальная прокрутка есть.
|
|
| Schumi |
| Отправлено: 31.10.2003, 13:01 |
|
Машинист паровоза
Группа: Участник
Сообщений: 206
|
Ты не понял,прокрутка не появляется на форме,кргда много Memo,и они не помещаются
|
|
| Gedeon |
| Отправлено: 31.10.2003, 15:56 |
|
Ветеран
Группа: Модератор
Сообщений: 1742
|
Ха, дак тут еще проще, вместо GroupBox используй TScrollBox со вкладки Additional, так все будет чики-пики.
|
|
