function TMain.FindForm(caption: string): bool;
var
i:integer;
begin
for i:=0 to main.MDIChildCount do
begin
// 通过标题判断社会窗体是否存在,如果存在,则恢复窗体,并返回true;如果不存在,则返回false
if main.MDIChildren[i].Caption=caption then
begin
SendMessage(mdichildren[i].Handle, WM_SYSCOMMAND, SC_Maximize, 0);
mdichildren[i].Enabled:=true;
mdichildren[i].Show;
mdichildren[i].SetFocus;
result:=true;
break;
end
else
result:=false;
end
end;