運行時生成控件

㈠、運行時生成可視控件：以下以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; ?