加载默认的url delphi

Question

我想在表单创建事件上加载默认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. 

Answer 1

您报告的不是整个故事。请执行以下步骤：

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

换句话说，您的应用程序中的其他内容阻止了这一点。可能FormCreate事件处理程序未分配给OnCreate。或者其他可能是错误的。但是，您可以按照上述步骤向自己证明从FormCreate导航是有效的。然后，所有遗体都将诊断您的申请不同。

最重要的是，从OnCreate事件调用Navigate足以在表单启动时显示网页。