c_delegate.pc

来自「Delphi脚本控件」· PC 代码 · 共 20 行

using StdCtrls, Forms;

TForm F = new TForm(NULL);
TButton B = new TButton(F);

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

function MouseHandler(Sender, Button, Shift, X, Y){
  println Sender.Caption;
  println Button;
  println Shift;
  println X;
  println Y;
}