unit MAIN;
interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, Menus,
StdCtrls, Dialogs, Buttons, Messages, ExtCtrls, ComCtrls, StdActns,
ActnList, ToolWin, ImgList, SUITabControl, SUIPageControl;
type
TMainForm = class(TForm)
MainMenu1: TMainMenu;
File1: TMenuItem;
FileNewItem: TMenuItem;
FileOpenItem: TMenuItem;
FileCloseItem: TMenuItem;
Window1: TMenuItem;
Help1: TMenuItem;
N1: TMenuItem;
FileExitItem: TMenuItem;
WindowCascadeItem: TMenuItem;
WindowTileItem: TMenuItem;
WindowArrangeItem: TMenuItem;
HelpAboutItem: TMenuItem;
OpenDialog: TOpenDialog;
FileSaveItem: TMenuItem;
FileSaveAsItem: TMenuItem;
Edit1: TMenuItem;
CutItem: TMenuItem;
CopyItem: TMenuItem;
PasteItem: TMenuItem;
WindowMinimizeItem: TMenuItem;
StatusBar: TStatusBar;
ActionList1: TActionList;
EditCut1: TEditCut;
EditCopy1: TEditCopy;
EditPaste1: TEditPaste;
FileNew1: TAction;
FileSave1: TAction;
FileExit1: TAction;
FileOpen1: TAction;
FileSaveAs1: TAction;
WindowCascade1: TWindowCascade;
WindowTileHorizontal1: TWindowTileHorizontal;
WindowArrangeAll1: TWindowArrange;
WindowMinimizeAll1: TWindowMinimizeAll;
HelpAbout1: TAction;
FileClose1: TWindowClose;
WindowTileVertical1: TWindowTileVertical;
WindowTileItem2: TMenuItem;
ToolBar2: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton9: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
ToolButton10: TToolButton;
ToolButton11: TToolButton;
ImageList1: TImageList;
pc: TPageControl;
tv1: TTreeView;
procedure FileNew1Execute(Sender: TObject);
procedure FileOpen1Execute(Sender: TObject);
procedure HelpAbout1Execute(Sender: TObject);
procedure FileExit1Execute(Sender: TObject);
procedure pcChange(Sender: TObject);
procedure pcMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
procedure CreateMDIChild(const Name: string);
public
{ Public declarations }
Formarray : array[0..127] of TForm;
len:Integer;
MouseClose:Boolean;
end;
var
MainForm: TMainForm;
implementation
{$R *.dfm}
uses CHILDWIN, about;
procedure TMainForm.CreateMDIChild(const Name: string);
var
Child: TMDIChild;
tab :TTabSheet;
begin
{ create a new MDI child window }
if len>15 then
begin
ShowMessage('你打开的窗口太多了');
Exit;
end;
Child := TMDIChild.Create(Application);
Child.Caption := Name;
Formarray[len]:=Child;
tab :=TTabSheet.Create(pc);
tab.PageControl :=pc;
tab.Caption := Name;
len:=len+1;
if FileExists(Name) then Child.Memo1.Lines.LoadFromFile(Name);
end;
procedure TMainForm.FileNew1Execute(Sender: TObject);
begin
CreateMDIChild('NONAME123456789－' + IntToStr(MDIChildCount + 1));
end;
procedure TMainForm.FileOpen1Execute(Sender: TObject);
begin
if OpenDialog.Execute then
CreateMDIChild(OpenDialog.FileName);
end;
procedure TMainForm.HelpAbout1Execute(Sender: TObject);
begin
AboutBox.ShowModal;
end;
procedure TMainForm.FileExit1Execute(Sender: TObject);
begin
Close;
end;
procedure TMainForm.pcChange(Sender: TObject);
begin
if pc.PageCount > 0 then
begin
Formarray[pc.ActivePageIndex].Show;
end;
end;
procedure TMainForm.pcMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
Index , temp , I: Integer;
begin
temp := 0;
Index := 0;
MouseClose:=True;
if (Button = mbLeft) and (ssDouble in Shift) then
begin
if pc.PageCount > 0 then
begin
Index := pc.IndexOfTabAt(X, Y);
if assigned(Formarray[Index]) then
begin
Formarray[Index].Close;
len:=len-1;
temp := Index;
if Index < pc.PageCount - 1 then
begin
for I := Index to pc.PageCount - 1 do
Formarray[i] := Formarray[i + 1];
end;
temp := pc.PageCount - 1;
Formarray[temp] := nil;
pc.Pages[Index].Free;// .Destroy;
end;
end;
end;
MouseClose:=False;
end;
end.
unit CHILDWIN;
interface
uses Windows, Classes, Graphics, Forms, Controls, StdCtrls;
type
TMDIChild = class(TForm)
Memo1: TMemo;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
implementation
uses MAIN;
{$R *.dfm}
procedure TMDIChild.FormClose(Sender: TObject; var Action: TCloseAction);
var
temp ,I,J : Integer;
begin
Action := caFree;
if MainForm.MouseClose then Exit;
temp := 0;
for I := 0 to MainForm.pc.PageCount - 1 do
begin
if MainForm.ActiveMDIChild = MainForm.Formarray[I] then
begin
MainForm.len:=MainForm.len-1;
if I < MainForm.pc.PageCount - 1 then
begin
for J := I to MainForm.pc.PageCount - 1 do
MainForm.Formarray[J] := MainForm.Formarray[J + 1];
end;
temp := MainForm.pc.PageCount - 1;
MainForm.Formarray[temp] := nil;
MainForm.pc.Pages[I].Destroy;
Break;
end;
end;
end;
end.
//根据名称检查tab是否已经存在
function FindTab(pagecontrol:TPageControl;tabName:string):integer;
var
i:integer;
begin
Result := -1;
for i := 0 to pagecontrol.PageCount - 1 do
begin
if pagecontrol.Pages[i].Name = tabName then
begin
Result := i;
Break;
end;
end;
end;
procedure FormToSheet(pagecontrol:TPageControl;frm:TForm;tabName,tabCaption:string);
var
i:integer;
tab:TTabSheet;
begin
i := FindTab(pagecontrol,tabName);
if i > 0 then
begin
pagecontrol.Pages[i].TabVisible := True;
pagecontrol.ActivePageIndex := i;
end
else
begin
tab := TTabSheet.Create(pagecontrol);
tab.Name := tabName;
tab.Caption := tabCaption;
tab.PageControl := pagecontrol;
pagecontrol.ActivePage := tab;
frm.ParentWindow := tab.Handle;
frm.Tag :=tab.TabIndex;
tab.InsertControl(frm);
frm.Show;
end;
frm.Show;
end;
销毁时,可以查找tab上的组件,找到窗体,然后freeandnil,当然也可以通过指针处理,在tag中保存窗体指针地址,销毁时根据这个地址去处理
