Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TWebBrowser

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

begin...end (2005-03-07 21:10:00) [1]
> 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.

Denya (2005-03-07 20:58:00) [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;

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

mrAld (2005-03-04 18:27:00) [3]
Первое что приходит на ум - используй TTimer

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »