VCL フォーム Web ブラウザ アプリケーションを構築する

提供: RAD Studio
移動先: 案内検索

VCL フォーム アプリケーションの作成方法 への移動


Web ブラウザ アプリケーションを作成する手順は以下のとおりです。

  1. VCL フォームを作成する。
  2. TWebBrowser コンポーネントをフォームに追加する。
  3. URL の入力と、ブラウザを使った起動およびページ移動を行うコントロールを追加する。
  4. 起動およびページ移動を行うコードを記述する。
  5. アプリケーションを実行する。

ユーザー インターフェイスの設計

  1. [ファイル|新規作成|その他...]の[Delphi プロジェクト]または [C++Builder プロジェクト] を選択し、[VCL フォーム アプリケーション]アイコンをダブルクリックします。VCL フォーム デザイナが表示されます。
  2. [ツール パレット][Win32]ページから、[TToolBar]コンポーネントをフォームに配置します。
  3. [ツール パレット][Standard]ページから、[TButton]コンポーネントを 3 つと[TEdit]コンポーネントを 1 つ、ツールバー コンポーネント上に配置します。
    TWebBrowser Toolbar.png

  4. TButtonCaption プロパティを、それぞれ「Back」、「Forward」、「Home」に設定します。
  5. フォーム デザイナで編集ボックスを選択し、[オブジェクト インスペクタ]Align プロパティに alClient を選択します。
  6. [ツール パレット][Internet]ページから、[TWebBrowser]コンポーネントをフォームに配置します。
  7. フォーム デザイナで TWebBrowser コンポーネントを選択し、[オブジェクト インスペクタ]Align プロパティに alClient を選択します。
メモ: ウィンドウのサイズがブラウザ ページ全体を表示できるだけ大きくない場合、アプリケーションを実行してブラウザ ウィンドウを起動すると、TWebBrowser コンポーネントによってスクロール バーが追加されます。
上記の手順が済むと、フォームは次の図のようになっているはずです。
TWebBrowser DesignTime.png

Web ブラウザを使用するコードの追加

  1. [オブジェクト インスペクタ]で、TButton コンポーネントそれぞれの OnClick イベントと TEdit コンポーネントの OnChange イベントについて、イベント ハンドラを作成します。
  2. 最初のボタン の OnClick のイベント ハンドラに、以下のコードを追加します。

Delphi の場合

procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser1.GoBack;
end;

C++ の場合

void __fastcall TForm1::Button1Click(TObject *Sender) {
	WebBrowser1->GoBack();
}
3. 2 番目のボタン の OnClick のイベント ハンドラに、以下のコードを追加します。

Delphi の場合

procedure TForm1.Button2Click(Sender: TObject);
begin
  WebBrowser1.GoForward;
end;

C++ の場合

void __fastcall TForm1::Button2Click(TObject *Sender) {
	WebBrowser1->GoForward();
}
4. 3 番目のボタン の OnClick のイベント ハンドラに、以下のコードを追加します。

Delphi の場合

procedure TForm1.Button3Click(Sender: TObject);
begin
  WebBrowser1.GoHome;
end;

C++ の場合

void __fastcall TForm1::Button3Click(TObject *Sender) {
	WebBrowser1->GoHome();
5. TEdit コンポーネントの OnChange のイベント ハンドラに、以下のコードを追加します。

Delphi の場合

procedure TForm1.Edit1Change(Sender: TObject);
begin
  WebBrowser1.Navigate(Edit1.Text);
end;

C++ の場合

void __fastcall TForm1::Edit1Change(TObject *Sender) {
	WebBrowser1->Navigate2(Edit1->Text);
}

アプリケーションの実行

  1. [実行|実行] を選択して、アプリケーションを構築し、実行します。
  2. 編集ボックスに Web ページの URL を入力します。TWebBrowser ウィンドウでブラウザが起動します。
実行した結果は次のようになります。

TWebBrowser RunTime.png

関連項目