procedure show(s:string);
begin
  showmessage(s);
end;

procedure TForm3.WebButton1Click(Sender: TObject);
begin
 asm
    // this is pure Javascript code
    $impl.show("你好");
  end;

end;

posted on 2018-08-10 14:44  xalion  阅读(704)  评论(0编辑  收藏  举报