|
TRochEdit의 인스턴스를 계속해서 생성하기는 하는데 그들의 포인터를 관리하지는 않으셨군요.
아래 소스를 보면 각 TTabSheet에 관련된 파일명은 알 수 있어도(PageControl1->ActivePage
->GetTextBuf(); ) 어떤 TRichEdit 인스턴스가 어떤 TTabSheet 인스턴스에 소속되어 있는지 알 수 없게
코딩을 하셨습니다.
먼저 TRichEdit * 배열을 만든 후 TTabSheet::TabIndex를 배열의 index로 사용하는 것이 하나의 해결책이 될 수 있을 것같습니다.
TRichEdit *RichEditList[x개];
int n = TabSheet1->TabIndex;
TRichEdit *RichEditList[n] = new TRichEdit(TabSheet1);
RichEditList[n]->Parent = TabSheet1;
RichEditList[n]->Align = alClient;
또는
TList RichEditList;
TRichEdit *NewRichEdit = new TRichEdit(TabSheet1);
NewRichEdit->Parent = TabSheet1;
NewRichEdit->Align = alClient;
TList->Add(NewRichEdit);
조재철 님이 쓰신 글 :
: 안녕하세요.
: 처음으로 질문을 드려봅니다.
: 저는 빌더를 혼자 막 시작했는데여.
: 제가 할려는 것은 PageControl에 동적으로 TabSheet를 만들어서
: 그위에 RichEdit를 만들고 파일일 읽어놓고 그것을 저장할때
: 그 문서가 수정 됐으면 파일을 저장하고 아니면 그장 닫게 할려고
: 하는데요.
: 그런데 동적으로 만든 RichEdit를 어떻게 지정해서 쓸수 있는지를
: 모르겠어요.
: 가르쳐 주실래요?
: 기다릴께요.
: void __fastcall TForm1::open1Click(TObject *Sender)
: {
: int i;
:
: if (OpenDialog1->Execute())
: {
: sBFileName = sFileName;
: sFileName = OpenDialog1->FileName.c_str();
: for (i = 0; sFileName[i] != NULL; i++);
: for (; sFileName[i] != '\\'; i--);
:
: if (!iIsOpen)
: {
: TabSheet1->SetTextBuf(sFileName+i+1);
:
: TRichEdit *NewRichEdit = new TRichEdit(TabSheet1);
: NewRichEdit->Parent = TabSheet1;
: NewRichEdit->Align = alClient;
:
: NewRichEdit->Lines->LoadFromFile(OpenDialog1->FileName);
:
: iIsOpen++;
: }
: else
: {
: TTabSheet *NewSheet = new TTabSheet(PageControl1);
: NewSheet->PageControl = PageControl1;
: PageControl1->SelectNextPage(true);
: NewSheet->SetTextBuf(sFileName+i+1);
:
: TRichEdit *NewRichEdit = new TRichEdit(NewSheet);
: NewRichEdit->Parent = NewSheet;
: NewRichEdit->Align = alClient;
:
: NewRichEdit->Lines->LoadFromFile(OpenDialog1->FileName);
:
: iIsOpen++;
: }
: }
: }
: 이렇게 파일을 열었고요.
: void __fastcall TForm1::Save1Click(TObject *Sender)
: {
:
: }
: 여기서 저장할려는데 어떻게
: 동적으로 생성된 RichEdit를 사용할수 있는지 알려주세요.
: 그럼 수고하세요.
|