2013-10-12 76 views
0

我想加載表單上的默認URL創建事件,我可以加載一個URL使用按鈕單擊,但我希望它加載應用程序加載時的URL,當我運行它的程序加載網址。加載默認url delphi

這裏是我的代碼:

unit launcher; 

interface 

uses 
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, 
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Imaging.pngimage, Vcl.ExtCtrls, 
    Vcl.StdCtrls, Vcl.OleCtrls, SHDocVw; 

type 
    TForm1 = class(TForm) 
    Image1: TImage; 
    Button1: TButton; 
    WebBrowser1: TWebBrowser; 
    procedure Button1Click(Sender: TObject); 
    procedure FormCreate(Sender: TObject); 

    private 
    { Private declarations } 
    public 
    { Public declarations } 
    end; 

var 
    Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.FormCreate(Sender: TObject); 
    begin 
Webbrowser1.Navigate('http://www.digitalxeon.net'); 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
close; 
end; 

end. 
+0

您的FormCreate事件是否運行?設置一個斷點並查看它是否觸發。據我所知,如果您在OnCreate處理程序中調用Navigate,則會加載該頁面。爲什麼要標記XE2和XE3?這是什麼? –

+0

我嘗試在XE2和XE3上,它也是這樣做的,不會在FormCreate上加載。 – LowFormat

+0

你沒有回答我的所有問題 –

回答

3

什麼你彙報是不是故事的全部。採取以下步驟:

  1. 創建一個新的VCL表單項目。
  2. TWebBrowser組件添加到自動生成的表單中。
  3. 雙擊表單以創建與OnCreate事件關聯的名爲FormCreateOnCreate事件處理程序。
  4. 將您的電話WebBrowser1.Navigate寫入FormCreate方法的正文中。
  5. 運行您的應用程序並觀察瀏覽器控件顯示您的頁面。

換句話說,應用程序中的其他內容阻止了這一點。也許OnCreate事件處理程序未分配給FormCreate。或者也許別的東西是錯的。但是,您可以按照上面的步驟向自己證明從OnCreate工程導航。然後,所有的遺骸將診斷您的應用程序的不同之處。

底線是從OnCreate事件中調用Navigate就足以在窗體啓動時顯示網頁。

+0

刪除我手工編寫的所有代碼,並按照相同的形式執行它的步驟,並且它可以工作。 – LowFormat