n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/FormWebBrowser.pas

17 строк406 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// ����������� ������������� ���������� WebBrowser
{$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.