加态加载窗体 ( 积分: 100 )

  • 主题发起人 主题发起人 lovewjp
  • 开始时间 开始时间
L

lovewjp

Unregistered / Unconfirmed
GUEST, unregistred user!
如何在程序运行的时候动态加载窗体界面。窗体文件(.DFM)保存在数据库或文件中。
 
如何在程序运行的时候动态加载窗体界面。窗体文件(.DFM)保存在数据库或文件中。
 
还不是一样吗,写入代码到 .Pas文件中啊
 
form1 := TForm1.create(self);
form1.各个属性 := 从数据库中提取;
...
form1.show;
 
其實你看一下工程的源文件,就知道了:
Application.Create(TForm,Form1)
//創建名為form1的窗體
//接下來進行初始人化
//讀取數據庫中的form屬性值
form1.各個屬性:=數據庫中的對應值
....
form1.show
//顯示窗體
 
要创建的窗体并非一个空的窗体,里面包含很多Edit Button 等控件。
如:程序只有一个主窗体,窗体中的一个按钮,单击按钮的时候从数据库中读出我们自己设计的DFM文件并创建出这个窗体。
 
没人帮忙啊!现在下班了,希望明天上班的时候会有一些收获!
 
這麼多人回答你還說沒人幫忙?你變態呀?
 
是不是让用户自已设计单据呀.:)
试一下DreamControl
 
hotboys,请文明点!你认为你回答的能解决问题吗?

lb_icesea79,你说用DreamControl应该可以实现的,我以前也有试过。但是如果要自己写呢?有没有办法啊?
 
我不認為我的回答一定是對的,但你說“沒人幫忙”就是你的不對了,不管前面回答者的答案是否正確,人家幫了你是事實。
 
我并没有否认那帮帮忙回答问题的人,这里我先谢了!
问题自己解决了!
 
测试程序下载地址:http://www.delphibbs.com/keylife/images/u171339/动态加载.rar

 
源码已发,请查收!
 
多做事,少说话,哈哈
 
無源碼
Bug多多
 
http://www.aidelphi.com/6to23/docu/ReadDFMFile.rar
一个把窗体保存在dfm文件中,应用程序需的时候再从文件中读出来的例子
 
后退
顶部