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

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 つ、ツールバー コンポーネント上に配置します。

   
   
   

4. TButton の Caption プロパティを、それぞれ「Back」、「Forward」、「Home」に設定します。
5. フォーム デザイナで編集ボックスを選択し、［オブジェクト インスペクタ］で Align プロパティに alClient を選択します。
6. ［ツール パレット］の［Internet］ページから、［TWebBrowser］コンポーネントをフォームに配置します。
7. フォーム デザイナで TWebBrowser コンポーネントを選択し、［オブジェクト インスペクタ］で Align プロパティに alClient を選択します。

メモ： ウィンドウのサイズがブラウザ ページ全体を表示できるだけ大きくない場合、アプリケーションを実行してブラウザ ウィンドウを起動すると、TWebBrowser コンポーネントによってスクロール バーが追加されます。

上記の手順が済むと、フォームは次の図のようになっているはずです。

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 ウィンドウでブラウザが起動します。

実行した結果は次のようになります。

関連項目

• VCL の概要
• VCL フォーム アプリケーションを構築する
• FireMonkey モバイル チュートリアル：Web ブラウザ コンポーネントを使用する（iOS および Android）