假设我已经有Form1, Form21.现在在Form1中调用某个文本文件, 获得Form2这个窗体Name, 现在用什么命令来打开 Form2?2.如果我在文本中写入窗体名称,与一些控件名称与属性. 怎么来动态创建这些控件?
解决方案 »
- 请教一个计算字段的问题
- 关于密码修改的问题。快速解决快速给分。呵呵
- 一个有关导出EXCEL文件的问题,急,请高手赐教!
- 如何判断临时表是否还在系统中?
- PageControl的问题
- 求简单的ADO操作SQLSERVER得例子。马上送上200分!
- 读取WebBrowser控件打开网页中元素特征中的文字
- 十万火急!!!怎样将QuickReport的报表合计的sum(field)输出到一变量。
- ADO的学习方法和参考书籍!(刚刚学,请大伙指教!Up 有分!呵呵)
- Rational Rouse 加入 Delphi Link 的使用,在线给分,可以多加
- 着急啊,Idftp1.List的问题?
- XDJM们,帮帮忙!ldftp.list的问题。
var
bF : TForm;
f : TFormClass;
begin
RegisterClass(TForm2);//必须先注册类
f := TFormClass(findClass('Tform2'));
bF := f.create(self);
bF.showModal;
BF.Free;
end;
控件用类似的方法也可以创建
LABEL1:=TLABEL。CREATE(FORM1);
EDIT1:=TEDIT。CREATE(FROM1);
EDIT1。PARENT:=FORM1;
可以把这句写在TForm2所在的单元(比如Unit2.pas)的initialization段中,这样
也不用引用unit2单元了