发信人: redfox (Z掉了几乎所有的版...), 信区: BorlandDev
标  题: Delphi编程 -- 1.5 动态产生构件并响应事件
发信站: 哈工大紫丁香 (2000年09月01日13:16:10 星期五), 站内信件

动态产生构件并响应事件 
    方法:
             var
                  MyBu : TBUTTON;
             begin
                     MyBu:=TBUTTON.Create(Form1);
                     MyBu.Parent:=Form1;
                     MyBu.Left:=10;
                     MyBu.Top:=10;
                     MyBu.OnClick:=MyOnClick;
                     MyBu.Show;
             end;
    注:MyOnClick为响应的事件过程.


 

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.107]