|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
27.02.2012, 13:41 | #1 |
Пользователь
Регистрация: 11.10.2011
Сообщений: 18
|
TWebBrowser полная загрузка
Имеется компонент TWebBrowser, который грузит с диска большое дерево на html и JavaScript. При первом запуске программы наблюдается некоторая задержка при прорисовке страницы. Подскажите, как на время полной загрузки страницы, закрыть ее другой формой - типа сплаш скрина. Я себе так вижу алгоритм "Показывать Сплаш форм пока вся страница не загрузится". Помогите с доработкой вот такого простого кода:
Код:
Спасибо |
27.02.2012, 14:26 | #2 | |
Форумчанин
Регистрация: 29.05.2011
Сообщений: 449
|
Цитата:
задания на pascal/delphi ICQ 368254335
Tel +79177425326 mail denis-naymov1985(at)mail.ru login skype denis.new.skype |
|
27.02.2012, 14:47 | #3 |
Пользователь
Регистрация: 11.10.2011
Сообщений: 18
|
Нет к сожалению, программа будет запускаться с носителя. Я думал так, пока грузится страница закрывать ее другой формой, только страница прогрузилась, другую форму закрываем. Но как это сделать
|
27.02.2012, 15:24 | #4 | |
Форумчанин
Регистрация: 29.05.2011
Сообщений: 449
|
Цитата:
Код:
задания на pascal/delphi ICQ 368254335
Tel +79177425326 mail denis-naymov1985(at)mail.ru login skype denis.new.skype |
|
27.02.2012, 15:47 | #5 |
Пользователь
Регистрация: 11.10.2011
Сообщений: 18
|
Спасибо за быстрый ответ. Если не сложно приложите к сообщению полные исходные тексты, а то у меня компилятор жутко ругается на ошибки.
В другом форуме рекомендуют использовать TWebrowser.OnDocumentComplete. Что выбрать? Люди покажите простой работающий код с этим свойством. Еще раз спасибо Последний раз редактировалось bibika; 27.02.2012 в 22:20. |
27.02.2012, 23:48 | #6 |
Пользователь
Регистрация: 11.10.2011
Сообщений: 18
|
Как мне прикрутить TWebrowser.OnDocumentComplete к коду с первого сообщения. Народ помогите, а то я уже такое нагуглил, что вообще запутался.
|
28.02.2012, 07:04 | #7 |
Форумчанин
Регистрация: 29.05.2011
Сообщений: 449
|
примерно так
задания на pascal/delphi ICQ 368254335
Tel +79177425326 mail denis-naymov1985(at)mail.ru login skype denis.new.skype |
28.02.2012, 09:23 | #8 |
Пользователь
Регистрация: 11.10.2011
Сообщений: 18
|
Нет я понимаю что нужно кликнуть по левой панели. Я спрашивал не о том, а о том как все это дело прикрутить к такому коду
Код:
|
28.02.2012, 09:28 | #9 |
Старожил
Регистрация: 28.01.2009
Сообщений: 21,000
|
кидаете на форму панель делаете её на всю форму, на нее кидете картинку(Image)
изначально она видима. потом в OnDocumentComplete скрываете(<ваша панель>.Visible:=false) её и все. denisbrain, код из поста 4 лучше выкинуть. 1)не хорошо называть процедуру так же как другую(причем системная и важная) 2)зачем второй раз входить в цикл сообщений, когда можно просто вернуться к нему? 3)активное ожидание вместо нормально продуманого кода. Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. |
28.02.2012, 09:49 | #10 | |
Форумчанин
Регистрация: 29.05.2011
Сообщений: 449
|
Цитата:
задания на pascal/delphi ICQ 368254335
Tel +79177425326 mail denis-naymov1985(at)mail.ru login skype denis.new.skype |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Полная информация о компьютере | Harikolo | Общие вопросы Delphi | 6 | 15.09.2019 02:49 |
загрузка TWebBrowser в потоке | xrob | Общие вопросы Delphi | 4 | 23.02.2012 08:47 |
Lazarus: Полная кроссплатформенность? | docbrain | Lazarus, Free Pascal, CodeTyphon | 10 | 16.05.2010 15:42 |
Incompatible types: 'Unit1.TWebBrowser' and 'SHDocVw.TWebBrowser' | simon15x | Общие вопросы Delphi | 0 | 10.04.2010 03:11 |
Полная загрузка ЦП в цикле while | ActioNs | Общие вопросы C/C++ | 3 | 15.08.2009 19:52 |