Eine VCL-Formularanwendung für Web-Browser erstellen

Aus RAD Studio
Wechseln zu: Navigation, Suche

Nach oben zu So erstellen Sie VCL-Formularanwendungen


Für die Erstellung der Webbrowser-Anwendung sind folgende Schritte erforderlich:

  1. Erstellen eines VCL-Formulars.
  2. Dem Formular eine TWebBrowser-Komponente hinzufügen.
  3. Steuerelemente für die Eingabe eines URL, den Start und die Navigation mit dem Browser hinzufügen.
  4. Quelltext zum Aufrufen und Navigieren schreiben.
  5. Die Anwendung ausführen.

Entwerfen der Benutzeroberfläche

  1. Wählen Sie Datei > Neu > Weitere > Delphi-Projekte oder C++Builder-Projekte , und doppelklicken Sie auf das Symbol VCL-Formularanwendung. Der VCL-Formular-Designer wird angezeigt.
  2. Ziehen Sie aus der Seite Win32 der Tool-Palette eine TToolBar-Komponente in das Formular.
  3. Ziehen Sie aus der Seite Standard der Tool-Palette drei TButton-Komponenten und eine TEdit-Komponente auf die ToolBar-Komponente.
    TWebBrowser Toolbar.png

  4. Legen Sie die Eigenschaft Caption für jede TButton-Komponente wie folgt fest: Back, Forward und Home.
  5. Wählen Sie das Eingabefeld im Formular-Designer aus, und wählen Sie im Objektinspektor für die Eigenschaft Align den Wert alClient aus.
  6. Ziehen Sie aus der Seite Internet der Tool-Palette eine TWebBrowser-Komponente in das Formular.
  7. Wählen Sie im Formular-Designer die TWebBrowser-Komponente aus, und wählen Sie im Objektinspektor für die Eigenschaft Align den Wert alClient aus.
Hinweis: Kann im Fenster keine komplette Browser-Seite angezeigt werden, fügt die TWebBrowser-Komponente automatisch Bildlaufleisten hinzu, wenn die Anwendung ausgeführt und das Browser-Fenster geöffnet wird.
Wenn Sie diese Schritte ausgeführt haben, sollte das Formular etwa folgendermaßen aussehen:
TWebBrowser DesignTime.png

Hinzufügen des Codes, den der WebBrowser verwendet

  1. Erstellen Sie im Objektinspektor Ereignisbehandlungsroutinen für das OnClick-Ereignis jeder TButton-Komponente und für das OnChange-Ereignis der TEdit-Komponente.
  2. Fügen Sie der OnClick-Ereignisbehandlungsroutine der ersten Button -Komponente den folgenden Code hinzu:

In Delphi: 

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

In C++: 

void __fastcall TForm1::Button1Click(TObject *Sender) {
	WebBrowser1->GoBack();
}
3. Fügen Sie der OnClick-Ereignisbehandlungsroutine der zweiten Button -Komponente den folgenden Code hinzu:

In Delphi: 

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

In C++: 

void __fastcall TForm1::Button2Click(TObject *Sender) {
	WebBrowser1->GoForward();
}
4. Fügen Sie der OnClick-Ereignisbehandlungsroutine der dritten Button -Komponente den folgenden Code hinzu:

In Delphi: 

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

In C++: 

void __fastcall TForm1::Button3Click(TObject *Sender) {
	WebBrowser1->GoHome();
5. Fügen Sie der OnChange-Ereignisbehandlungsroutine der TEdit-Komponente den folgenden Code hinzu:

In Delphi: 

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

In C++: 

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

Ausführen der Anwendung

  1. Wählen Sie Start > Start, um die Anwendung zu erzeugen und auszuführen.
  2. Geben Sie in das Eingabefeld einen URL zu einer Webseite ein. Der Browser ruft das TWebBrowser-Fenster auf.
Das Ergebnis zur Laufzeit:

TWebBrowser RunTime.png

Siehe auch

Abgerufen von „http://docwiki.embarcadero.com/RADStudio/Rio/d/index.php?title=Eine_VCL-Formularanwendung_für_Web-Browser_erstellen&oldid=176151“