|
——此文章摘自《Delphi 数据库开发经典案例解析》定价￥特价￥购买>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave> if flag= then begin newform:=TmaterialsCreate(application); newformCaption:=物料主文件维护; end; end; //打开物料清单(BOM)子窗体 procedure TmainBOMClick(Sender: TObject); var newform:Tbom; iflag:integer; begin flag:=; for i:= to mainMDIChildCount do begin // 通过对窗体标题判断窗体是否存在 if mainMDIChildren[i]Caption=物料清单(BOM) then begin //如果窗体已存在则恢复窗体 SendMessage(mdichildren[i]Handle WM_SYSCOMMAND SC_restore ); mdichildren[i]Show; //标识窗体已存在 flag:=; //退出循环 break; end; end; //若窗体不存在则创建窗体 if flag= then begin newform:=TbomCreate(application); newformCaption:=物料清单(BOM); end; end; //平铺各个子窗体 procedure TmainNClick(Sender: TObject); begin Tile; end; //层叠各个子窗体 procedure TmainNClick(Sender: TObject); begin Cascade; end; right>[http://developcsaicn/delphi/htm>] [http://developcsaicn/delphi/htm>] [] [http://developcsaicn/delphi/htm>] |
