[Страдалецъ]

В общем понадобилось мне реализовать тут визуально загрузку содержимого на странички. Как ни странно, но не нашел в инете готового простенького решения под Дельфи. И вот что родилось в итоге:

[lmikle]

Эт, канещно, здорово. А модуль с кодом в архив положить слабо?

[Vayrus]

Сообщение от Страдалецъ

В общем понадобилось мне реализовать тут визуально загрузку содержимого на странички. Как ни странно, но не нашел в инете готового простенького решения под Дельфи. И вот что родилось в итоге:

Unit33.pas то где ?

ЗЫ
Тоже реализовывал с помощью ImageList в потоке, правда не для табов, интересно твою реализацию посмотреть.

[Страдалецъ]

Упс Приду домой новый выложу. Как это я так слона то и не заметил.

[Страдалецъ]

Вот выкладываю подправленный код. Немного еще там намудрил с закрытием вкладки и остановкой прогресса.

[M.A.D.M.A.N.]

Бгг, ну и реализация, однако.
Я бы на таймер повесил и табщит пронаследовал бы.

[Страдалецъ]

Тут ведь вся сложность оказалось в том, что экземпляр потока некуда присвоить после создания. Пришлось наследование дурацкое делать только для этого. А с таймером я сразу и пробовал, но что-то мне там не понравилось и сделал потоком. Вот если бы у TTabSheet была возможность куда-то ссылку на поток прилепить, можно было бы так не изгалятся.