Zitat von
marabu:
Delphi-Quellcode:
procedure TWebForm.WebBrowserBeforeNavigate2(Sender: TObject;
const pDisp: IDispatch;
var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant;
var Cancel: WordBool);
begin
if pDisp = WebBrowser.DefaultInterface
then
DocumentLoaded := false;
end;
procedure TDemoForm.WebBrowserDocumentComplete(Sender: TObject;
const pDisp: IDispatch;
var URL: OleVariant);
begin
if pDisp = WebBrowser.DefaultInterface
then
DocumentLoaded := true;
end;
Grüße vom marabu
Wie müsste es eigentlich aussehen, wenn man den Webrowser von einer Form2 aus steuern würde? Also durch ein ButtonClick auf eine Webseite Changed und von der Form 2 aus
Delphi-Quellcode:
repeat
Application.ProcessMessages;
until DocumentLoaded;
sagen möchte