[ DeWeb 使用技巧 ] 如何在js中向当前Form发送消息?

DeWeb使用中，有时需要在javascript（注意：不是在Delphi中）中向当前Form发送消息，可以通过dwSetVar函数来实现，输入值类型为字符串类型。

参考的HTML代码

<input  id="data" style="position:absolute;left:60px;top:20px;width:180px;height:35px;" type=”text”   value=My中123%￥Value />
<button style="position:absolute;left:60px;top:100px;width:188px;height:40px;" onclick="dwSetVar(document.getElementById('data').value);">Set Var</button>

当Form收到dwSetVar发送的消息时，自动触发OnContextPopup事件，事件值可以通过dwGetProp(Self,'__var')取得，参考代码如下：

procedure TForm1.FormContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
begin
    dwMessage('onvar','success',self);
    //取得dwSetVar发送的值，并赋给caption
    caption := dwGetProp(Self,'__var');
end;

DeWeb是一个可以直接将Delphi程序快速转换为网页应用的工具！
使用DeWeb, 开发者不需要学习HTML、CSS、JavaScript、Java、PHP、ASP、C#等新知识，
用 Delphi 搞定一切 ！！！

支持所有客户端，包括电脑、手机、平板等。

网址：DeWeb : Web Application Framework for Delphi