定制界面的难题(200分)

fshell和liuwen4878的办法都不错,我在网上找到了一个软件,我觉的我可以做成象
这个软件一样的,只是不知道他是用什么方面来做的,我猜也是用动态生成构件的方
法来实现的,但是里面每个界面生成的图片格式是ele结尾的,我不知道这种是什么
格式,是怎么生成的,有兴趣的朋友可以下载下来看看,顺便告诉我一下,是怎么实现
的,多谢了.
网址:www.jhpsoft.com,软件名称是仿真物理实验室

To: liuwen4878
你说的DSP是什么网站?名字是什么?
用户只是要求线路图能自己设计,但是每个设备的符号不会变,也就是他们能跟他实际
的线路把线和设备符号把连成一张电路图就可以了.

早就有人作出来啦，简直就是Delphi的简化版。
是这个公司的产品：
http://www.netgoldcom.com/

DSP=delphi.icm.edu.pl
找一套VECTOR构件来代表元件和电路线，界面交互工作恐怕就得做一个设计器程序了，然后把
定义结果存到...

其实就是一个组态软件
看看我的
http://www.onlinedown.net/electricitydesigner.htm

作成组件，然后动态生成，后再根据保存的情况形成不同的单吉反映

用devpress的flowchart最好了，www.playicq.com有下，还带源码和demo。

To: wyddr
你的软体跟我要做的很象，但是要钱的，我可以穷的很，所以买不起，你能不能说一下
你的设计思路，还有做好的界面是如何保存的。

到www.turbopower.com 看看，会有所发现

保存很简单
保存
procedure TMain1.N35Click(Sender: TObject);
var
LStream: TFileStream;
LSave: Boolean;
begin
if SaveDialog1.Execute then
begin
LSave := True;
if FileExists(SaveDialog1.FileName) and
(MessageDlg(Format('文件 "%s" 已经存在。是否覆盖？',
[SaveDialog1.FileName]), mtConfirmation, [mbYes, mbNo], 0) <> mrYes) then
LSave := False;
if LSave then
begin
LStream := TFileStream.Create(SaveDialog1.FileName, fmCreate);
try
LStream.WriteComponent(self.ActiveMDIChild);
finally
LStream.Free;
end;
end;
end;
end;

读取
procedure TMain1.N34Click(Sender: TObject);
var
LStream: TFileStream;
begin
if OpenDialog1.Execute then
begin
LStream := TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
try
begin
LStream.ReadComponent(Main1.ActiveMDIChild);
end;

finally
LStream.Free;
end;
end;
end;

多人接受答案了。