Construction d'une application de navigateur Web Fiches VCL

Remonter à Comment construire des applications Fiches VCL

La création de l'application de navigateur Web comprend les étapes suivantes :

1. Créer une fiche VCL.
2. Ajouter un composant TWebBrowser à la fiche.
3. Ajouter des contrôles pour entrer une URL, lancer le navigateur et l'utiliser pour naviguer.
4. Ecrire le code pour le lancement et la navigation.
5. Exécuter l'application.

Conception de l'interface utilisateur

1. Choisissez Fichier > Nouveau > Autre > Projets Delphi ou Projets C++Builder et double-cliquez sur l'icône Application Fiches VCL. Le Concepteur de fiches VCL apparaît.
2. Sur la page Win32 de la palette d'outils, placez un composant TToolBar sur la fiche.
3. Sur la page Standard de la palette d'outils, placez trois composants TButton et un composant TEdit sur le composant ToolBar.

   
   
   

4. Définissez la propriété Caption de chaque TButton comme suit : Back, Forward et Home.
5. Sélectionnez le composant Navigateur Web sur le Concepteur de fiches mobiles, accédez à l'inspecteur d'objets et sélectionnez alClient pour la propriété Align.
6. Sur la page Internet de la palette d'outils, placez un composant TWebBrowser sur la fiche.
7. Sélectionnez le composant TWebBrowser sur le Concepteur de fiches mobiles, accédez à l'inspecteur d'objets et sélectionnez alClient pour la propriété Align.

Remarque : Si la fenêtre n'est pas assez grande pour afficher une page entière du navigateur, le composant TWebBrowser ajoute des barres de défilement lorsque vous exécutez l'application et lancez la fenêtre du navigateur.

Une fois ces étapes accomplies, la fiche doit être similaire à la figure suivante :

Ajout du code qui utilise le navigateur Web

1. Depuis l'inspecteur d'objets, créez des gestionnaires d'événement pour l'événement OnClick de chaque composant TButton, et l'événement OnChange du composant TEdit.
2. Ajoutez le code suivant au gestionnaire d'événement OnClick du premier bouton  :

Dans Delphi :

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

Dans C++ :

void __fastcall TForm1::Button1Click(TObject *Sender) {
	WebBrowser1->GoBack();
}

3. Ajoutez le code suivant au gestionnaire d'événement OnClick du deuxième bouton  :

Dans Delphi :

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

Dans C++ :

void __fastcall TForm1::Button2Click(TObject *Sender) {
	WebBrowser1->GoForward();
}

4. Ajoutez le code suivant au gestionnaire d'événement OnClick du troisième bouton  :

Dans Delphi :

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

Dans C++ :

void __fastcall TForm1::Button3Click(TObject *Sender) {
	WebBrowser1->GoHome();

5. Ajoutez le code suivant au gestionnaire d'événement OnChange du composant TEdit :

Dans Delphi :

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

Dans C++ :

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

Exécution de l'application

1. Choisissez Exécuter > Exécuter pour construire et exécuter l'application.
2. Entrez une URL vers une page Web dans la zone d'édition. Le navigateur démarre dans la fenêtre TWebBrowser.

Voici le résultat à l'exécution :

Voir aussi

• Présentation de la VCL
• Construction d'une application Fiches VCL
• FireMonkey Tutoriel mobile : Utilisation du composant Navigateur Web (iOS et Android)