运行期动态创建的控件事件问题：

Question

http://homepages.borland.com/jkaster/ccds/delphi7disk1/innerfuse/innerfuse_pascal_script_3/index.htmlor用VB Script 寫腳本代碼了

Answer 1

在设计时定义事件：
  MyEvent(Sender: TObject);  //当然不同的事件有不同的格式
在程序动态创建时：
  MyButton.OnClick := MyEvent;

Answer 2

procedure TFra_CaseShow.TCtrlKeyPress(Sender:Tobject;var Key:Char);
begin
    if not (key in ['0'..'9',#13,#8,#45]) then Key:=#0;
    if (key=#45) and (length(Trim(TEdit(Sender).Text))>0) then key:=#0;end;AEdit[i]:=Tedit.Create(self);
AEdit[i].Parent:=form1;
Aedit[i].OnkeyPress:=TCtrlKeyPress;

Answer 3

问题改成：
  
   求Dream Scripter ForD7 的控件包及DEMO。

Answer 4

好象只有個試用的, 沒找到正式的for d7http://www.dream-com.com/download/trials/411/dcsc_d7.zip