Ich habe mir einen browser programmiert mit mehreren Tabs. Wenn ein neues tab geöffnet wird, wird eine TwebBrowser erzeugt, dass sieht so aus bei mir:
Delphi-Quellcode:
procedure TForm4.CreateNewTabBrowser(
Url:
string);
begin
TabSheetEx := TTabSheetEx.Create(PageControl1);
with TabSheetEx
do
begin
PageControl := PageControl1;
EWB := TEmbeddedWB.Create(TabSheetEx);
Caption := '
Loading...';
TOleControl(TabSheetEx.EWB).Parent := TabSheetEx;
PageControl1.ActivePage := TabSheetEx;
with EWB
do
begin
LoadSettings;
Align := alClient;
Visible := True;
DownloadOptions := [DownloadAndIgnoreCache];
OnStatusTextChange := StatusTextChangeEvent;
OnNewWindow2 := NewWindow2Event;
OnDownloadComplete := DownloadCompleteEvent;
OnCommandStateChange := CommandStateChangeEvent;
OnBeforeNavigate2 := BeforeNavigate2;
OnDocumentComplete := DocumentComplete;
Go(
URL);
end;
end;
end;
nun möchte ich im event OnDocumentComplete den
html text phrasen und auf bestimmten text reagieren. ich frage mich nur wie ich das anstellen soll. Normalerweise habe ich das immer so gemacht:
Delphi-Quellcode:
html2.Clear;
wb2.SaveFrameToStrings(0,html2);
if pos('login',html2.text) <> 0 then begin
Showmessage('Login gefunden');
end;
Aber wie kann ich das bei den einzelnen zur laufzeit erzeugten TWebBrowser machen? Die kann ich ja nicht direkt mit WebBrowser1, WebBrowser2 usw ansprechen.