盒子论坛 v2.1

1）可以新建立一个 MDI工程，文件\新建
   在弹出的对话框中选择：project \ mdi application
2)或：把 FORM1的formstyle设置成 fsMDIForm
       把 FORM2的formstyle设置成 fsMDIChild
3)调用
procedure TMainForm.FileSaveItemClick(Sender: TObject);
var
str1,str2,str3,temp,s1,s2:string;
i,j,count:integer;
begin
temp:= (mainform.ActiveMDIChild as TMDIChild).Caption;
str1:=copy((mainform.ActiveMDIChild as TMDIChild).Caption,0,6) ;
if str1='未命名' then
   begin//22
     if sd1.Execute then
     begin//4
      if sd1.FileName=' then exit;
      (mainform.ActiveMDIChild as TMDIChild).
              memo1.Lines.SaveToFile(sd1.FileName);
      (mainform.ActiveMDIChild as TMDIChild).Caption:=sd1.FileName;
      (mainform.ActiveMDIChild as TMDIChild).sb2.SimpleText :=';
      SetPathStatus(sd1.FileName);
       for i:=0 to mainform.MDIChildCount-1 do
         begin//2
          s1:=GetEditedName(temp);
          s2:=TabControl1.Tabs.Strings [i];
          if s1=s2 then
            begin//3
             TabControl1.Tabs.Strings [i]:=OnlyFileName(sd1.FileName );
             break;
            end;//3
         end;//2
     end//4
     else
       exit;
   end//22
   else
   begin//2_2
   str2:=(mainform.ActiveMDIChild as TMDIChild).Caption;
   str2:=copy(str2,length(str2),1);

   if (mainform.ActiveMDIChild as TMDIChild).sb2.SimpleText='*' then
   begin//3
    str3:=GetEditedName((mainform.ActiveMDIChild as TMDIChild).Caption);
    (mainform.ActiveMDIChild as TMDIChild).
                      memo1.Lines.SaveToFile(str3);
    (mainform.ActiveMDIChild as TMDIChild).sb2.SimpleText:=';
    (mainform.ActiveMDIChild as TMDIChild).Caption:=str3;
     SetPathStatus(str3);
   end//3
   else
   begin//3_2
    str3:=(mainform.ActiveMDIChild as TMDIChild).Caption;
    SetPathStatus(str3);
   end;//3_2
   end;//2_2
RefreshNextTime;

end;

----------------------------------------------

作者：

sealcheng (chengcheng)	★☆☆☆☆	-
	普通会员

2003/10/1 19:00:19

2楼：

不会把这么麻烦！！
楼主你是说得这个意思么????
----------------------------------------------
-

信息

登陆以后才能回复