Я видел много программ с чем-то вроде mdi-нтерфейс. Там был PageControl и для каждого открытого файла была своя вкладка. Есть где-нибудь пример подобной программы(на Делфи или на Билдере)?

Вот код Создания новой страницы:

Код

var tab:TTabSheet;       memo:TMemo; begin   tab:=TTabSheet.Create(Form1);   tab.PageControl:=PageControl1;   memo:=Tmemo.Create(self);   memo.Parent:=tab;   memo.Align:=alClient;   tab.tag:=integer(pointer(memo)); end;

Чтобы достучаться до нужного memo, например со второй закладки:

Код

TMemo(pointer(PageContol.pages[1].tag)).text:='Hello!'

а как закрыть вкладку?
Добавлено @ 20:23
и куда лучше записывать информацию о том, что юзер изменил файл?

Цитата(miksayer @ 5.8.2005, 11:18)

а как закрыть вкладку?

Уничтожаешь все объекты на вкладке

Цитата(miksayer @ 5.8.2005, 11:18)

и куда лучше записывать информацию о том, что юзер изменил файл?

Я в примере использовал tag вкладки для хранения указателя на memo. Есть 2 другие пути:

1. В таg делаем указатель на структуру куда пишем всю необходимую инфу:

Код

Type TMyStr=   memo:TMemo;   filename:shortstring;   waschanged:boolean;   ...   End;   TMyStr=^TMyStr;

...
на новой вкладке - создаём структуру, присваемаем указатель на неё свойству Tag и уже через неё работаем.

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

спасибо