unit4.~pas

1、 图形设计：静态、移动、睡觉时的形态

unit Unit4;

interface

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

type
  TForm4 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    nameEdit: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Button1: TButton;
    Button2: TButton;
    Label8: TLabel;
    ageSpinEdit: TSpinEdit;
    eatSpinEdit: TSpinEdit;
    doctorSpinEdit: TSpinEdit;
    bodySpinEdit: TSpinEdit;
    sleepSpinEdit: TSpinEdit;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;
  procedure save_edit(t:tobject);
  procedure load_edit(t:tobject);
  procedure save_spin(t:tobject);
  procedure load_spin(t:tobject);

var
  Form4: TForm4;

implementation
uses registry, Unit1;

{$R *.dfm}


 procedure save_edit(t:tobject);
var reg :tregistry;
begin
  with t as tedit do
   begin
   reg:=tregistry.Create;
   try
    reg.RootKey:=HKEY_CURRENT_USER;
    if reg.OpenKey('\TEST',TRUE) THEN
    begin
      reg.WriteString(NAME+'TEXT' , TEXT );
      END;
      FINALLY
      reg.CloseKey;
      reg.Free;
      end;
      end;
      end;
procedure load_edit(t:tobject);
  var reg :tregistry;
  begin
  with t as tedit do
    begin
     reg:=tregistry.Create;
     try
      reg.RootKey:=HKEY_CURRENT_USER;
      IF reg.OpenKey('\test',true) then
        begin
         if reg.ValueExists(name+'text') =true then
           text:=reg.ReadString(name+'text');
           end;
           finally
            reg.CloseKey;
            reg.Free;
            end;
            end;
            end;
procedure save_spin(t:tobject);
var reg :tregistry;
begin
   with t as tspinedit do
      begin
       reg:=tregistry.Create;
       try
         reg.RootKey:=HKEY_CURRENT_USER;
         if reg.OpenKey('\test',true) then
           begin
             reg.WriteInteger(name+'value' , value );
            end;
         finally
          reg.CloseKey;
          reg.Free;
          end;
          end;
          end;
procedure load_spin(t:tobject);
 var reg : tregistry;
 begin
   with t as tspinedit do
     begin
       reg:=tregistry.Create;
       try
       reg.RootKey:=HKEY_CURRENT_USER;
       IF REG.OpenKey('\test',true) then
        begin
        if reg.ValueExists(name+'value')=true then
          value :=reg.Readinteger(name+'value');
          end;
       finally
        reg.CloseKey;
        reg.Free;
        end;
        end;
        end;


procedure TForm4.Button1Click(Sender: TObject);
begin

nameedit.Text:=nameedit.text;

save_edit(form4.nameedit);
save_spin(form4.ageSpinEdit);
save_spin(form4.eatSpinEdit);
save_spin(form4.doctorSpinEdit);
save_spin(form4.bodySpinEdit);
save_spin(form4.sleepSpinEdit);


form4.Close;
if nameedit.Text='' then begin form1.button1.Enabled:=true;
                                 form1.panel1.Visible:=true;
    form1.walkButton.Enabled:=false;
    form1.readButton.Enabled:=false;
    form1.getupbutton.Enabled:=false;
    form1.sleepbutton.Enabled:=false;
    form1.eatbutton.Enabled:=false;
    form1.wcbutton.Enabled:=false;
    form1.bathbutton.Enabled:=false;
    form1.doctorbutton.Enabled:=false;
    form1.watchtvbutton.Enabled:=false;
            form1.overButton.Enabled:=true;
    form1.ballButton.Enabled:=false;

     form1.Panel1.Visible:=false;
     form1.Panel2.Visible:=false;
     form1.IMG1.Visible:=false;
     form1.IMG2.Visible:=false;
     form1.IMG3.Visible:=false;
     form1.IMG4.Visible:=false;
     form1.IMG5.Visible:=false;
     form1.IMG6.Visible:=false;
     form1.IMG7.Visible:=false;
     form1.IMG8.Visible:=false;
      form1.IMg9.Visible:=false;
     form1.IMG10.Visible:=false;
      form1.IMG11.Visible:=false;
     form1.IMG12.Visible:=false;


                               form4.ageSpinEdit.Value:=0;
                               form4.eatSpinEdit.Value:=80;
                               form4.bodySpinEdit.Value:=80;
                               form4.doctorSpinEdit.Value:=80;
                               form4.sleepSpinEdit.Value:=80;
                                save_edit(form4.nameedit);
                               save_spin(form4.ageSpinEdit);
                               save_spin(form4.eatSpinEdit);
                                save_spin(form4.doctorSpinEdit);
                               save_spin(form4.bodySpinEdit);
                               save_spin(form4.sleepSpinEdit);

                            end
                            else begin
                             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.Panel1.Visible:=true;

                            form1.Button1.Enabled:=false; end;
end;

procedure TForm4.Button2Click(Sender: TObject);
begin
form4.Close;
if nameedit.Text='' then begin form1.button1.Enabled:=true;

                                   form1.panel1.Visible:=true;


                               form4.ageSpinEdit.Value:=0;
                               form4.eatSpinEdit.Value:=80;
                               form4.bodySpinEdit.Value:=80;
                               form4.doctorSpinEdit.Value:=80;
                               form4.sleepSpinEdit.Value:=80;
                               save_edit(form4.nameedit);
                               save_spin(form4.ageSpinEdit);
                               save_spin(form4.eatSpinEdit);
                               save_spin(form4.doctorSpinEdit);
                               save_spin(form4.bodySpinEdit);
                               save_spin(form4.sleepSpinEdit);

                            end ;
end;

end.