如題：
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if timeflag1>=80 then
begin
timeflag1:=0;
Memo1.Text:= '';
EmbeddedWB1.Navigate(edit1.Text);
flashcount:=flashcount+1;
Label1.Caption:='第 ' + trim(inttostr(flashcount)) + ' 次重繪網頁完畢。 ';
Timer2.Enabled:=true;
end
else
begin
timeflag1:=timeflag1 + 1;
end;
end;
上述代碼 給Label1.caption賦值時機是不正確的，如何才能在網頁成功重繪完畢時再運行這句代碼呢？
初用DELPHI及該控制元件，完全不懂他的事件如何寫。萬望各位大神幫忙，不勝感激。業余，好奇。絕非商業程式員。
96年學該專業，02年畢業并未從事該行業。賣電腦至今。純愛好，整著玩。再次謝謝大家。
uj5u.com熱心網友回復：
試試處理下 DocumentComplete 事件uj5u.com熱心網友回復：
我也曉得是要處理這個事件，可是不曉得怎么在DELPHI里定義這個事件。呃，剛才去搗騰了下，太久沒用DELPHI，VB習慣也誤導了我，控制元件屬性欄，選事件頁，然后在對應事件后輸一自定義事件名回車就OK了。呃，問題解決。謝謝。暫時不結貼吧，希望大家能在后面多跟一些這個第三方網頁控制元件的用法。
uj5u.com熱心網友回復：
EmbeddedWB控制元件是有OnTitleChange事件的. 當頁面重繪時也會觸發.uj5u.com熱心網友回復：
這個控制元件的使用方法真是不好找啊。上面的問題解決了。新的問題又出來了。如果讓所有新接都是在當前頁面顯示呢，當在新頁面打開時，他會呼叫系統默認瀏覽器。這很不爽，我希望，所有新頁面都在我的這個頁面打開。uj5u.com熱心網友回復：
新的問題我又自己解決了：procedure TForm2.EmbeddedWB1NewWindow2(ASender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
Cancel:=true;
label1.Caption:='彈出新視窗取消';
end;
procedure TForm2.EmbeddedWB1NewWindow3(ASender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool; dwFlags: Cardinal;
const bstrUrlContext, bstrUrl: WideString);
var
urlstr:string;
begin
urlstr:=bstrUrl;
EmbeddedWB1.Navigate(urlstr);
IEAddress1.Text:=urlstr;
end;
uj5u.com熱心網友回復：
上樓的方法可能解決絕大部份的網頁彈新視窗的問題。但是運行這個網頁時 不行了。有誰有解？：
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/108826.html
標籤：網絡通信/分布式開發