对Delphi很熟悉的人，都知道MDI窗口的创建方式，是将主窗口的formstyle设置成MDIForm，然后将各个要设置成MDI的窗口的FormStyle都设置成MDIChild，运行就可以看到效果了嘿。
但是，如果MDI子窗口的依附窗口不是主窗口呢？此时是否依然能够建立MDI应用程序呢？事实证明是不行的，通过看Forms单元的源码中的CreateWindowHandle这个我们可以看到这样几句代码
if (FormStyle = fsMDIChild) and not (csDesigning in ComponentState) then
begin
if (Application.MainForm = nil) or
(Application.MainForm.ClientHandle = 0) then
raise EInvalidOperation.Create(SNoMDIForm);
如果窗口样式为MDIChild的，先查看MainForm的ClientHandle是否为0，也就是说被局限在了
Application.MainForm上了，此时如果MainForm不是MDIForm样式，那么ClientHandle就为0了，所以就会报出一个异常 EInvalidOperation.Create(SNoMDIForm);
既然这样，那我们就需要绕过Application.Mainform这个砍，让子窗口创建的时候MainForm的 ClientHandle<>0，设置MDIForm自然就不是我们需要的了，我们是要非主窗口创建MDI应用程序，于是俺想到一个办法修改 Application.MainForm这个属性，修改成窗口样式为MDIFOrm的非主窗口，此时不就可以过了吗？
于是写下
Application.MainForm := MyMdiForm;
很明显这个是会报错误的，因为Application.MainForm为只读属性声明为：
Property MainForm: TForm read FMainForm;
那么是否就无策了呢？细心的同志们仔细观察一下应该是可以发现的MainForm指向的是FMainForm，也就是说MainForm就是FMainForm的地址映射，那么我们就可以通过指针来达到这个修改的目的了哈哈
那么就可以这样
var
p: PInteger;
begin
p := @Application.MainForm;
p^ := Integer(form3);//这里就修改了Application的Mainform的属性了哈。
end;
然后我们就可以创建MDI子窗口了，呵呵
具体如下：
procedure TForm2.BitBtn1Click(Sender: TObject);
var
p: PInteger;
f: TForm;
begin
f := Application.MainForm;
f.Hide;
form3 := Tform3.Create(nil);
p := @Application.MainForm;
p^ := Integer(form3);
Form3.Show;
f.Close;
end;
仅供研究，使用请慎重。没做任何测试。
本文转自 不得闲 博客园博客，原文链接： http://www.cnblogs.com/DxSoft/archive/2010/01/01/1637659.html ，如需转载请自行联系原作者
