unit3.~pas

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

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Label3: TLabel;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
Form3.Close;

    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.button11.Enabled:=true;
    form1.overButton.Enabled:=true;
    form1.ballButton.Enabled:=true;
    form1.Img13.Visible:=false;
    form1.Img14.Visible:=false;
    form1.Img15.Visible:=false;

     form1.mediaplayer1.open;
     form1.mediaplayer1.play;
     form1.Panel2.Visible:=false;


end;

end.