harita entegrasyonu

Kod:

var

MyForm:TCLForm;

testButton : TclButton;

ProWebBrowser;

void testButtonOnClick;

{

  ProWebBrowser.ExecuteJavaScriptSync('alert(''ERROR!!!'')');

  ProWebBrowser.LoadHTML('<h1 style="color:#ff00ff">Hello World</h1>');

  //ProWebBrowser.Navigate('https://cms.clomosy.com');

  //ProWebBrowser.GoForward;

  //ProWebBrowser.GoBack;

  //ProWebBrowser.ClearCache;

  //ProWebBrowser.Reload;

  //ProWebBrowser.UserAgent = 'Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:47.0) Gecko/20100101 Firefox/47.0';

  //ProWebBrowser.AutoClearCache = True;

  //ProWebBrowser.Url='https://cms.clomosy.com';

  //ProWebBrowser.LoadFile('path/to/file');

  //ProWebBrowser.ShowDebugConsole;

  //ProWebBrowser.ShowDebugConsole;

}

{

  MyForm = TCLForm.Create(Self);

  testButton = MyForm.AddNewButton(MyForm,'testButton','Click');

  testButton.Align = alTop;

  MyForm.AddNewEvent(testButton,tbeOnClick,'testButtonOnClick');

  ProWebBrowser = MyForm.AddNewProWebBrowser(MyForm,'ProWebBrowser');

  ProWebBrowser.Align = alClient;

  ProWebBrowser.Margins.Top = 25;

  ProWebBrowser.Margins.Left = 25;

  ProWebBrowser.Margins.Right = 25;

  ProWebBrowser.Margins.Bottom = 25;

  /*

  ProWebBrowser = TCLProWebBrowser.Create(MyForm);

  ProWebBrowser.Parent = MyForm;

  ProWebBrowser.Align = alClient;

  ProWebBrowser.Margins.Top = 25;

  ProWebBrowser.Margins.Left = 25;

  ProWebBrowser.Margins.Right = 25;

  ProWebBrowser.Margins.Bottom = 25;

  */

  MyForm.Run;

}