运行时如何生成一个可视控件,比如TEdit 控件,小弟想了很久,求解
解决方案 »
- TMediaPlayer 播放AVI格式文件出错
- 如何把一个pascal string 拷贝到一个array[0...19] of char中去?
- openpicturedialog1 控件的用法——————在线等待!!!
- 清问我在用BDE查询数据的时候,总是提示“invalid BLOB handle in record buffer”, 请问是什么原因?
- StatusBar显示图片和文件!越简单越好!要可行的!
- 如何暂时使得TQuery下的所有永久字段的OnChange/OnGetText...等事件失效
- socket问题
- 紧急求助!!当点击帮助按钮时,如何转到.chm文件中相应的页面?如果有例子最好了.
- 如何用TWebBrowser将一段HTML代码显示成网页,或显示一个HTML文件?急!!!给分!!
- 添加数据库记录的问题
- 各位,江湖救急!!!!!!!
- 在已有的应用程序中怎样加入自己设计的登录密码窗口?
.在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; ?