0

我想在表单创建事件上加载默认 URL,我可以使用按钮单击加载 url,但我希望它在应用程序加载时加载 URL,当我运行程序时它不会加载 url。

这是我的代码:

 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. 
4

1 回答 1

3

你报告的不是全部。采取以下步骤:

  1. 创建一个新的 VCL 表单项目。
  2. TWebBrowser组件添加到自动生成的表单中。
  3. 双击表单以创建一个OnCreate名为与事件FormCreate关联的事件处理程序OnCreate
  4. 将您的调用WebBrowser1.Navigate放入方法的主体中FormCreate
  5. 运行您的应用程序并观察浏览器控件显示您的页面。

换句话说,您的应用程序中的其他东西正在阻止它。也许OnCreate事件处理程序未分配给FormCreate. 或者也许还有其他问题。但是,您可以按照上述步骤向自己证明导航是OnCreate有效的。然后剩下的就是诊断您的应用程序的不同之处。

底线是NavigateOnCreate事件调用足以在表单启动时显示网页。

于 2013-10-12T23:40:15.883 回答