project1.dpr

来自「1、 图形设计：静态、移动、睡觉时的形态」· DPR 代码 · 共 51 行

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3},
  Unit4 in 'Unit4.pas' {Form4},
  Unit5 in 'Unit5.pas' {Form5},
  Unit6 in 'Unit6.pas' {Form6},
  Unit7 in 'Unit7.pas' {Form7};

{$R *.res}

begin
  Application.Initialize;

  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm6, Form6);
  Application.CreateForm(TForm7, Form7);
  load_edit(form4.nameEdit);

  if form4.nameEdit.text<>''  then
   begin form1.button1.enabled:=false;
             form1.Panel1.Visible:=true;
            form1.walkbutton.enabled:=true;
            form1.readbutton.Enabled:=true;
            form1.getupbutton.Enabled:=true;
            form1.sleepbutton.Enabled:=true;
            form1.eatButton.Enabled:=true;
            form1.WCButton.Enabled:=true;
            form1.bathbutton.Enabled:=true;
            form1.doctorButton.Enabled:=true;
            form1.watchTVbutton.Enabled:=true;
            form1.ballButton.Enabled:=true;
            form1.Button11.Enabled:=true;
     end
     else begin

     form1.Show;
     form1.Button1.Enabled:=true;
     end;


     Application.Run;
end.