Method 1

在您的示例中，要从JavaScript代码调用delphimyFunc过程，您只需在JavaScript中这样调用该过程:

pas.Unit1.TForm1.myFunc('1998');

这会起作用.因此，您的完整WebFormShow代码将是:

procedure TForm1.WebFormShow(Sender: TObject);
var
  i: integer;
begin
  WebHTMLDiv1.HTML.Text := '';
  for i := 1 to 5 do
    WebHTMLDiv1.HTML.Text := WebHTMLDiv1.HTML.Text +
      '<button type="button" onclick="pas.Unit1.TForm1.myFunc(' + i.ToString +
      ')" class="btn btn-primary btn-sm">BtnNum' + i.ToString + '</button>';
end;

Method 2

作为替代方法.您还可以 for each 按钮分配click eventListener.

我修改了<button>以包含data_code属性，并添加了MyBtnClick类.然后我还修改了您的myFunc函数以包含Sender: TJSEvent参数.

这是完整代码:

unit Unit1;

interface

uses
  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,
  WEBLib.Forms, WEBLib.Dialogs, Vcl.Controls, WEBLib.WebCtrls, Vcl.StdCtrls,
  WEBLib.StdCtrls;

type
  TForm1 = class(TWebForm)
    WebHTMLDiv1: TWebHTMLDiv;
    procedure WebFormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure myFunc(Sender: TJSEvent);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.myFunc(Sender: TJSEvent);
var
  ACode: String;
begin
  ACode := Sender.targetElement.getAttribute('data_code');
  ShowMessage(ACode);
end;

procedure TForm1.WebFormShow(Sender: TObject);
var
  i: integer;
  MyBtnClick: TJSHTMLCollection;
begin
  WebHTMLDiv1.HTML.Text := '';
  for i := 1 to 5 do
    WebHTMLDiv1.HTML.Text := WebHTMLDiv1.HTML.Text +
      '<button type="button" data_code="' + i.ToString +
      '" class="btn btn-primary btn-sm MyBtnClick"' +
      '>BtnNum' + i.ToString + '</button>';


  MyBtnClick := document.getElementsByClassName('MyBtnClick');
  for I := 0 to MyBtnClick.length-1 do
  begin
    MyBtnClick.Items[I].addEventListener('click', @myFunc);
  end;
end;

end.