2016-04-27 13:14:04 +03:00
|
|
|
|
// Иллюстрация использования компонента WebBrowser
|
2015-05-14 22:35:07 +03:00
|
|
|
|
{$apptype windows}
|
|
|
|
|
|
{$reference System.Windows.Forms.dll}
|
|
|
|
|
|
|
|
|
|
|
|
uses
|
|
|
|
|
|
System.Windows.Forms,
|
|
|
|
|
|
System.Net;
|
|
|
|
|
|
|
|
|
|
|
|
begin
|
|
|
|
|
|
var myForm := new Form;
|
|
|
|
|
|
var w := new WebBrowser;
|
|
|
|
|
|
w.Url := new System.Uri('http://pascalabc.net');
|
|
|
|
|
|
w.Dock := Dockstyle.Fill;
|
|
|
|
|
|
myForm.Controls.Add(w);
|
|
|
|
|
|
myForm.WindowState := FormWindowState.Maximized;
|
|
|
|
|
|
Application.Run(myForm);
|
|
|
|
|
|
end.
|
