2015-12-28 14:25:15 +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.
|
