Such as:
Procedure TForm1. Timer1Timer (Sender: TObject);
The begin
If timeflag1 & gt; Then=80
The begin
Timeflag1:=0;
Memo1. Text:=' ';
EmbeddedWB1. Navigate (edit1. Text);
Flashcount:=flashcount + 1;
Label1. Caption:='first' + trim (inttostr (flashcount)) + 'time to refresh the page to complete,';
Timer2. Enabled:=true;
End
The else
The begin
Timeflag1:=timeflag1 + 1;
end;
end;
The above code to Label1. Caption assignment timing is not right, how can we succeed in the web page refresh when finished running the code again?
Beginning with DELPHI and the control, completely don't know how to write his events, hope everybody a great god help, really appreciate, amateur, curious, not commercial programmer,
Learn the major 96, 02 graduation did not engaged in the industry, selling computers, pure love, the whole play, thank you again,

CodePudding user response:

Try the DocumentComplete under processing

CodePudding user response:

reference 1st floor m617105 response:

try to deal with the DocumentComplete

I also know that is to deal with this event, but I don't know how to define the events in DELPHI, er,
To churn out just now, too, long time no use DELPHI, VB habits they misled me, control bar, choose the events page, and then in the corresponding incident to lose a custom event name enter with respect to OK, well, problem solving, thank you, temporarily not knot tieba, hope everybody can in the back with some more the third-party web controls usage,

CodePudding user response:

EmbeddedWB controls are OnTitleChange event. Can be set when a page refresh.

CodePudding user response:

Is really not good for the use of this control method, the above problem is solved, new problems come out again, if all new answer is in the current page, when open the new page, he will call the system default browser, it is very uncomfortable, I hope that all the new page in my open this page,

CodePudding user response:

Solves the new problem and I myself:

Procedure TForm2. EmbeddedWB1NewWindow2 (ASender: TObject;
Var ppDisp: IDispatch; Var Cancel: WordBool);
The begin
Cancel:=true;
Label1. Caption:='pop-up window to cancel;
end;

Procedure TForm2. EmbeddedWB1NewWindow3 (ASender: TObject;
Var ppDisp: IDispatch; Var Cancel: WordBool; DwFlags: Cardinal;
Const bstrUrlContext bstrUrl: WideString);
Var
Urlstr: string;
The begin
Urlstr:=bstrUrl;
EmbeddedWB1. Navigate (urlstr);
IEAddress1. Text:=urlstr;
end;

CodePudding user response:

Upstairs method may solve most of the web to play a new window, but when run this web page not line, who have a solution? :