各位高手：你们好！我有个问题：有关多文档（MDI）如何打开和关闭（像Access样）

Question

各位高手：你们好！我有个问题：有关多文档（MDI）如何打开和关闭
          还有一个问题是如何定义一个函数？
谢意？！！！

Answer 1

MDI打开: 
  可以动态创建,然后ShowModal,
MDI关闭: 
  在 OnClose()事件里 Action := Cafree;定义函数:
function Calc(var A: Integer; B: string):string;
begin
  ...
  Result := ..
end;

Answer 2

begin
if assigned(form8) then
  setwindowpos(form8.Handle,hwnd_top,0,0,0,0,swp_nosize or swp_nomove or swp_showwindow);
  hidden:=false;
end;
打开得
   if assigned(form7) then
   showwindow(form7.Handle,sw_hide);
   hidden:=true;
关闭的
先声明一个hidden