demo_delegates.htm

来自「Delphi脚本控件」· HTM 代码 · 共 93 行

HTM
93 行
字号 
<html>
<head>
<link rel=stylesheet type="text/css" href="styles.css">
</head>

<body>

<h3>
paxScript Demo. Delegates and Event Handlers.
</h3>
<hr>

<h4>
paxBasic
</h4>

<blockquote>
<pre>
<font color="blue"><b>Imports</b></font> StdCtrls, Forms

<font color="blue"><b>Dim</b></font> F <font color="blue"><b>As</b></font> TForm = <font color="blue"><b>new</b></font> TForm(NULL)
<font color="blue"><b>Dim</b></font> B <font color="blue"><b>As</b></font> TButton = <font color="blue"><b>new</b></font> TButton(F)

F.Show
B.Parent = F
B.Caption = "Click Me"
B.OnMouseDown = <font color="blue"><b>AddressOf</b></font> MouseHandler

<font color="blue"><b>Sub</b></font> MouseHandler(Sender, Button, Shift, X, Y)
  <font color="blue"><b>print</b></font> Sender.Caption
  <font color="blue"><b>print</b></font> Button
  <font color="blue"><b>print</b></font> Shift
  <font color="blue"><b>print</b></font> X
  <font color="blue"><b>print</b></font> Y
<font color="blue"><b>End</b></font> <font color="blue"><b>Sub</b></font>
</pre>
</blockquote>


<h4>
paxC
</h4>

<blockquote>
<pre>
<font color="blue"><b>using</b></font> StdCtrls, Forms;

TForm F = <font color="blue"><b>new</b></font> TForm(NULL);
TButton B = <font color="blue"><b>new</b></font> TButton(F);

F.Show();
B.Parent = F;
B.OnMouseDown = & MouseHandler;
B.Caption = 'Click Me';

<font color="blue"><b>function</b></font> MouseHandler(Sender, Button, Shift, X, Y){
  <font color="blue"><b>print</b></font> Sender.Caption;
  <font color="blue"><b>print</b></font> Button;
  <font color="blue"><b>print</b></font> Shift;
  <font color="blue"><b>print</b></font> X;
  <font color="blue"><b>print</b></font> Y;
}
</pre>
</blockquote>


<h4>
paxPascal
</h4>

<blockquote>
<pre>
<font color="blue"><b>uses</b></font> StdCtrls, Forms;
<font color="blue"><b>var</b></font>
  F = TForm.Create(nil),
  B = TButton.Create(F);

F.Show;
B.Parent := F;
B.OnMouseDown := @ MouseHandler;
B.Caption := 'Click Me';

<font color="blue"><b>procedure</b></font> MouseHandler(Sender, Button, Shift, X, Y);
<font color="blue"><b>begin</b></font>
  <font color="blue"><b>print</b></font> Sender.Caption;
  <font color="blue"><b>print</b></font> Button;
  <font color="blue"><b>print</b></font> Shift;
  <font color="blue"><b>print</b></font> X;
  <font color="blue"><b>print</b></font> Y;
<font color="blue"><b>end</b></font>;
</pre>
</blockquote>

demo_delegates.htm - 源码说明

本页面展示了「Delphi脚本控件」中的 demo_delegates.htm 源码文件，采用 HTM 编程语言编写，共 93 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与Delphi相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?