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

TestSamples/CompilationSamples/TestBrowser.pas

30 строк691 B

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

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

#apptype windows
#reference 'System.Windows.Forms.dll'

uses System.Windows.Forms, System.Threading;

var myForm: Form;

procedure RunThread;
begin
  var w := new WebBrowser;
  myForm.Controls.Add(w);
  w.Dock := DockStyle.Fill;
  w.Url := new System.Uri('http://pascalabc.net');
  Application.Run(myForm);
end;

begin
  myForm := new Form;
  myForm.Width := 700;
  myForm.Height := 400;
  var w := new WebBrowser;
  myForm.Controls.Add(w);
  w.Dock := DockStyle.Fill;
  w.Url := new System.Uri('http://pascalabc.net');
  Application.Run(myForm);
  {var th := new Thread(RunThread);
  th.SetApartmentState(System.Threading.ApartmentState.STA);
  th.Start();}
//  myForm.Controls.Add(w);
end.