unit1.~pas

非常丰富的delphi小程序,相信会对你有帮助

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls,unit2;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Form2_Array,Form2_Temp_Array:array of TForm2; //定义两个子窗口动态数组
  Form2_Count:Integer=0; //定义子窗口总数变量，并置初值为0
  sum:integer=0; // 累加所有子窗口的SpinEdit控件的值
implementation

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);  //建立子窗口菜单的单击事件
begin
Form2_Count:=Form2_Count+1; // 子窗口总数加1
SetLength(Form2_Array,Form2_Count); //在建立子窗口之前，重新调整动态数组的长度
Form2_Array[Form2_Count-1]:=TForm2.Create(self); //建立子窗口并为数组对应元素置值
Form2_Array[Form2_Count-1].Tag:=Form2_Count;//新建的子窗口拥有独立Tag属性
Form2_Array[Form2_Count-1].Caption:='第'+InttoStr(Form2_Array[Form2_Count-1].Tag)+'个窗口';
Tile;//排列子窗口
Form1.N3Click(self); //调用N3菜单的单击事件，更改主子窗口的计算结果

end;

procedure TForm1.N3Click(Sender: TObject);//累加所有子窗口SpinEdit1的Value
var
i:integer;
begin
sum:=0;
for i:=0 to Form2_Count-1 do
sum:=sum+Form2_Array[i].SpinEdit1.Value;
Edit1.Text:=inttostr(sum);
end;

end.