Динамическое создание компонентов в потоке

@Splitter · Регистрация: 13.01.2009

Author24 — интернет-сервис помощи студентам

Добрый день,
я динамически создаю компоненту в потоке и мне нужно прореагировать на ее событие, не подскажете как это правильно сделать. Чтобы было понятнее что я пытаюсь сделать, вот куски кода

Delphi

//это поток, OnNavigateComplete2 - событие которое должно вызываться компонентом WB
Tnew = class(TThread)
  WB:TWebBrowser;
  procedure OnNavigateComplete2(ASender: TObject;
   const pDisp: IDispatch; var URL: OleVariant);
  protected
  procedure execute; override;
end;
 
procedure Tnew.execute;
begin
//...
WB:=TWebBrowser.Create(nil);
WB.OnNavigateComplete2:=OnNavigateComplete2;
WB.Navigate('http://google.com');
end;
 
procedure Tnew.OnNavigateComplete2(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
//здесь будет код который нужно выполнить после загрузки страницы в WB
end;
 
//вот так я вызываю поток
thr:=Tnew.Create(true);
thr.FreeOnTerminate:=false;
thr.Resume;
//

компонент создается нормально, но вот событие OnNavigateComplete2 не вызывается.

Использую именно TWebBrowser, так как мне нужно нажать на кнопочку такого типа
<input style"width:200px" type="submit" class="dl" value="OK">
как это сделать напрямую я не придумал...

	16.04.2010, 16:58