程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 動態產生構件並相應事件

動態產生構件並相應事件

編輯:Delphi

方法:
             var
                  MyBu : TBUTTON;
             begin
                     MyBu:=TBUTTON.Create(Form1);
                     MyBu.Parent:=Form1;
                     MyBu.Left:=10;
                     MyBu.Top:=10;
                     MyBu.OnClick:=MyOnClick;
                     MyBu.Show;
             end;
    注:MyOnClick為響應的事件過程.

另:
㈠、運行時生成可視控件:以下以TEdit 控件為例
1.在Form的Public中定義TEdit控件
  Edit1:TEdit;
2.在需要生成的地方加入以下代碼:
  Edit1:=TEdit.Create(Self);
  Edit1.Parent:=Form1;
  Edit1.Left ?:=20;
  Edit1.Top :=20;
  Edit1.Text :='Edit1 Text';
3.使用完畢後,釋放分配的資源
  if  Assigned(Edit1) then Edit1.Free;
  ㈡、運行時生成非可視控件:以下以 TTimer控件為例
1.在Form的Public中定義TTimert控件
  Timer1:TTimber;
2.在需要生成的地方加入以下代碼:
  Timer1:=TTimer.Create(Self);
  Timer1.OnTimer:=YourAction;
YourAction是自己定義的OnTimer事件,使用
procedure TForm1.YourAction(Sender:TObject); 完成
3.使用完畢後,釋放分配的資源
  if  Assigned(Timer1) then Timer1.Free;

 
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved