Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.03.20;
Скачать: CL | DM;

Вниз

TWebBrowser   Найти похожие ветки 

 
Denya ©   (2005-03-04 18:09) [0]

Добрый день всем!
Проблема такая:
Использую указанный компанент, и загружаю в нем какую-то страницу, например :   WebBrowser1.Navigate("http://www.rambler.ru");
Мне нужно, что бы по истечению определенного мною таймаута, например, 3 секунды, выполнялась процедура WebBrowser1.Stop;
и передавалось управление другой функции. Иными словами, как установить таймаут?
Заранее спасибо.


 
mrAld ©   (2005-03-04 18:27) [1]

Первое что приходит на ум - используй TTimer


 
Denya ©   (2005-03-07 20:58) [2]

Это понятно, а в какие события TWebBrowser-a надо ставить Timer.Enabled = TRUE/FALSE; я пробовал так:
procedure TForm1.IEDownloadBegin(Sender: TObject);
begin
 Timer.Enabled := TRUE;
 QueryTime := 0;
end;
procedure TForm1.TimerTimer(Sender: TObject);
begin
 QueryTime := IncSecond(QueryTime);
 Edit1.Text :=FormatDateTime("hh:nn:ss", QueryTime);
end;
procedure TForm1.IEDownloadComplete(Sender: TObject);
begin
 Timer.Enabled := False;
 Edit1.Text := Edit1.Text + " done ";
end;

Работает как то странно...


 
begin...end ©   (2005-03-07 21:10) [3]

> Denya ©   (04.03.05 18:09)

Выставьте Timer.Interval в 3000, свойство Enabled выставьте в False. В момент, когда нужно будет начать отсчёт времени, установите Enabled в True.

А обработчик OnTimer может быть примерно таким:

procedure TMyForm.MyTimerTimer(Sender: TObject);
begin
 (Sender as TTimer).Enabled := False;
 WebBrowser.Stop;
 { вызов нужной процедуры }
end.



Страницы: 1 вся ветка

Текущий архив: 2005.03.20;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.026 c
14-1109759124
mmms
2005-03-02 13:25
2005.03.20
Здравствуйте! Подскажите зачем есть такая закладка Diagram


3-1108582133
dreamse
2005-02-16 22:28
2005.03.20
Проблема с сохранением и востановлением базы в MS SQL


6-1100342453
TOXA
2004-11-13 13:40
2005.03.20
Голосовой чат!


3-1108473244
Юрец
2005-02-15 16:14
2005.03.20
MS SQL и Excel


6-1105603415
Artem Osipov
2005-01-13 11:03
2005.03.20
Протокол обмена между VNC сервером и клиентом