将 TForm 封装成 组件的问题？(200分)

很简单的问题，我想把以做好的一个表单封装成为一个组件，
请问如何实现？

可以试试做成DLL或者OCX

tong_hui: 请问能详细说明一下么?

我也想知道。。可否写的详细一些呢？

先做为ocx，然后发布。
ocx做的可以直接放到界面上。

做一个包装类，把FORM包装起来不就行了？
你不会是想做成FRAME的效果吧？　直接用FRAME吧。

我在一本书上看到过这种方法，但我建议你看一看TOpenDialog的源码，它就是一种封装FORM的
方式。

我做了一个演示，先建立一 需要 被包装的窗体 - Named : Form_Paked , 单元为 : Unit_Paked.

新建一单元，继承自 TComponent, 内容如下。 两个单元放在同一目录下，注册 TPakFoemDemo 即可。
unit PakFormDemo;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Unit_Paked;

type
TPakFormDemo = class(TComponent)
private
{ Private declarations }
Form_Paked : TForm_Paked;
protected
{ Protected declarations }
public
{ Public declarations }
function Execute: Boolean;
published
{ Published declarations }
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('Samples', [TPakFormDemo]);
end;

function TPakFormDemo.Execute: Boolean;
begin
Form_Paked:=TForm_Paked.Create(nil);
Try
Result := Form_Paked.ShowModal = mrOK;
Finally
Form_Paked.Free;
end;
end;

end.

我要的不是和 TOpenDialog 一样，弹出一个对话框，而是象 TPanle 一样可以贴到表单上。

那直接用FRAME不就得了?

一定要做成组件，不能作成 Frame

把Form的父指定为Panel,Show之后自然会Show到Panel上去。

若用继承 Tpanel 的话还要重写各控件的属性，太麻烦了，有没有简单点的方法？
自定义组件时有没有办法直接调用 *.dfm 文件，直接把以编好的控件的属性添加进去。
不过 wk_knife 你的方法可行，等我接受答案后，给你50分，ok

你可以在运行期读*.dfm 文件，然后动态生成这个窗体。
不过那样就得连*.dfm 文件一起发布了。

在设计器除了用复制/粘贴来做，我也不清楚有没有其他办法。

wk_knife :大侠，能否详细点，如果我成功了，一定给你加分的。

我想到一个方法：
继承一个panel,添加一个String属性用来打开*.dfm 文件，打开后在Panel下动态生成Form中的可利用的组件。
不过有个问题，是事件的赋值，因为如果dfm 是外来的，它定义的事件处理过程没有被你定义过，那么全盘照搬会出错
必须在转换前删去组件的事件属性定义。这样就不如作成DLL或OCX，

不过我的感觉不如使用FRAME。或照Tense的想法作成OCX，当然要求更高一些。

事件问题我已经解决了，现在只要考虑怎样把（原有的以编好的各控件的）
属性在制作时添加进去

object Form1: TForm1
Left = 192
Top = 124
Width = 696
Height = 480
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 120
TextHeight = 16
object Button1: TButton
Left = 40
Top = 40
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 0
OnClick = Button1Click //删除此行
end
object Button2: TButton
Left = 136
Top = 40
Width = 75
Height = 25
Caption = 'Button2'
TabOrder = 1
OnClick = Button2Click //删除此行
end
object Panel1: TPanel
Left = 295
Top = 0
Width = 393
Height = 448
Align = alRight
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = 'Panel1'
TabOrder = 2
end
object Memo1: TMemo
Left = 40
Top = 88
Width = 209
Height = 345
Lines.Strings = (
'Memo1')
TabOrder = 3
end
object OpenDialog1: TOpenDialog
Left = 16
Top = 208
end
end

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Panel1: TPanel;
OpenDialog1: TOpenDialog;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
FStream:TFileStream;
{ Public declarations }
end;

var
Form1: TForm1;
OutForm:TForm;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
FStream:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead);
FStream.Position :=0;
Memo1.Lines.LoadFromStream(FStream);

end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
TempForm:TForm;
StrMemo:TMemoryStream;
StrBin:TMemoryStream;
begin
StrMemo:=TMemoryStream.Create ;
Memo1.Lines.SaveToStream(strMemo);
StrBin:=TMemoryStream.Create ;
strMemo.Position :=0;
OBjectTextToResource(StrMemo,StrBin);
strBin.Position :=0;
TempForm:=TForm.Create (Application);
strbin.ReadComponentRes(TempForm);
OutForm:=TempForm;
//OutForm.BorderStyle:=bsNone;
OutForm.Parent:=Panel1;
OutForm.Left :=0;
OutForm.Top :=0;
OutForm.Show;
FStream.Free;
end;

initialization
RegisterClasses ([TButton, TMemo,TPanel,TOpenDialog]);

end.

上面的简单例子可以打开当前或其他dfm文件，记住在转换前从Memo中删除所有控件的事件属性，如上面的注释
以后你可以通过遍历所有的控件找到你要赋事件的控件，动态地赋给事件处理过程。

另外dfm有两种格式，还有一种是二进制格式，可能不需要OBjectTextToResource(StrMemo,StrBin);
你根据帮助自己试试吧。

把窗口做到dll 中完全可以达到你的要求
把窗口设成无标题栏