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という名前のイベント ハンドラーを作成します。FormCreateOnCreate
  4. メソッドWebBrowser1.Navigateの本体に呼び出しを入れます。FormCreate
  5. アプリケーションを実行し、ブラウザー コントロールにページが表示されることを確認します。

つまり、アプリケーション内の他の何かがこれをブロックしています。OnCreateイベント ハンドラが に割り当てられていない可能性がありますFormCreate。または、他の何かが間違っている可能性があります。ただし、上記の手順に従って、 からの移動が機能することを証明できますOnCreate。あとは、アプリケーションの違いを診断するだけです。

要するに、フォームの起動時に Web ページを表示するにはNavigate、イベントから呼び出すだけで十分です。OnCreate

于 2013-10-12T23:40:15.883 に答える