Нужна помощь. TTabControl и TPageControl

← →
LEXX_55 (2004-11-12 09:27) [0]

Уважаемые мастера! Помогите реализовать маленькую задачу. Есть куча текстовых файлов которые нужно представить в таблицах (TStringGrid). Каждый в отдельной. Есть два, внешне похожих, инструмента: TTabControl и TPageControl. Суть такова: кликнул на закладку и отобразилась нужная таблица. Только прикол в том что в TTabControl для всех страниц отображается одна и та же таблица, хотя не возникает никаких проблем с созданием закладок. В TPageControl никак не могу создать новую закладку из уже запущенного приложения. Как создать или скопировать инструмент в запущенном приложении. Помогите кто сможет.

← →
Torin (2004-11-12 09:36) [1]

Делай так: создаёшь TTabControl с необходимым кол - вом закладок ( т.к. у тебя "не возникает никаких проблем с созданием закладок" то справишься), затем в событии OnChange пишеш код загрузки в String Grid (н будет всего один) нужного файла. Для пользователя это будет выглядить именно как "куча текстовых файлов в таблицах".

← →
LEXX_55 (2004-11-12 09:46) [2]

Файлов может быть 1 и "бесконечное" множество. Вдруг их в какой-то момент не хватит.

← →
LEXX_55 (2004-11-12 09:57) [3]

Хотелось бы, что бы это было похоже на окно редактора кода в Delphi

← →
LEXX_55 (2004-11-12 10:04) [4]

а как ты себе представляеш поиск во всех страницах

← →
Torin (2004-11-12 10:36) [5]

"Файлов может быть 1 и "бесконечное" множество. Вдруг их в какой-то момент не хватит."
Каким образом не хватит то? У тябя один грид туда загружается файл, при смени закладки грид очищается и туда грузится новый файл и т.д. Закладок можно создать 0, 1, 2. 3 ... n (где n любое целое неотрицательное число(ну или почти любое))
"Хотелось бы, что бы это было похоже на окно редактора кода в Delphi"
Редактор кода реализован похожим образом.
"а как ты себе представляеш поиск во всех страницах"
Поиск ведётся поочерёдно во всех файлах существующим закладкам

LEXX_55 (12.11.04 09:46) [2]
Для бесконечного множества надо иметь бесконечные ремурсы.

2 "TPageControl никак не могу создать новую закладку из уже запущенного приложения"

Вот пример создания новой странице в PageControl"е.
var Sheet:TTabSheet; begin Sheet:=TTabSheet.Create(PageControl1); Sheet.PageControl := PageControl1; end;
Можно создавать, новую для каждого файла, но ИМХО для большого количества это не очень хорошо.

Нужна помощь. TTabControl и TPageControl Найти похожие ветки