uniGUI试用笔记（五）

FFrameList : TList;

procedure TfrmWebMain.ShowFrame(AfmeBaseClass: TfmeWebEmbedClass;  AOwnerData: Variant); 
var 
  ts: TUniTabSheet; 
  fme : TfmeWebEmbedBase; 
begin 
  { 查找是否已经存在相应的业务窗体 } 
  fme := FindFrame(AfmeBaseClass); 
  { 如果没有则新建 } 
  if not Assigned(fme) then 
  begin

    { 先创建TabShee，用于放置Frame } 
    ts := TUniTabSheet.Create(self); 
    ts.PageControl := pcMain; 
    ts.Closable := False;

    { 置换关闭事件，用于关闭业务窗体 } 
    ts.OnClose := OnTabSheetClose；

    { 构建业务窗体 }

    fme := AfmeBaseClass.Create(Self); 
    fme.Parent := ts; 
    fme.TabSheet := ts; 
    fme.Align := alClient; 
    fme.MainForm := Self;

    { 设置返回事件，当业务窗体按下<返回>时，执行该函数} 
    fme.OnReturn := OnFrameReturn; 
    ts.Caption := fme.ModelName;

    { 业务窗体加入到列表 } 
    FFrameList.Add(fme); 
  end 
  else { 如果找到已存在的业务窗体，则取其对应的TabSheet} 
    ts := fme.TabSheet;

  { 进行业务窗体的数据准备工作，失败则释放业务窗体 }

  if not fme.PrepareData(AOwnerData) then 
  begin 
    ReleasFrame(fme); 
    Exit; 
  end;

  { 显示业务窗体 }

  ts.TabVisible := true; 
  pcMain.ActivePage := ts; 
end;