喫茶XRAY [Mr.XRAY掲示板]

ところで，この一連のボタンクリックのコードは JavaScript を実行しています．
しかし，1 行だけです．
もし，複数行の JavaScript のコードを実行したい場合は，
JavaScript テキストを複数行にするとか，HTML にコードを挿入する方法もありますが
以下のような方法もあります．

[ PascalScript (Delphi XE2 以降)]
http://ht-deko.com/delphiforum/?vasthtmlaction=viewtopic&t=888

参考までに．

JavaScript を実行する関数の引数のテキストを，複数行にすれば，
複数行の実行となります．

  if Assigned(Chromium1.Browser.Mainframe) then begin
    LClassName := '''submit''';
    LJsText 　 := 'document.getElementsByClassName(' + LClassName + ')[0].click();';
    LJsText    := LJsText + sLineBreak + 'alert("ボタンクリックのテスト");';
    Chromium1.Browser.MainFrame.ExecuteJavaScript(LJsText, 'about:blank', 0);
  end;

このダイアログを閉じると，実際のボタンクリックの結果が表示される