unit1.pas

是一个非常好的游戏

unit Unit1;

interface

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

type
  Tshezhi = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Bevel2: TBevel;
    Image2: TImage;
    BitBtn1: TBitBtn;
    op1: TOpenPictureDialog;
    Label3: TLabel;
    Bevel3: TBevel;
    Label4: TLabel;
    Edit1: TEdit;
    Label5: TLabel;
    Edit2: TEdit;
    Label6: TLabel;
    Edit3: TEdit;
    Label7: TLabel;
    Edit4: TEdit;
    Bevel4: TBevel;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  shezhi: Tshezhi;

implementation
 uses main,unit3;
{$R *.dfm}

procedure Tshezhi.BitBtn1Click(Sender: TObject);
begin
   if op1.Execute=true then
     image2.Picture.LoadFromFile(op1.FileName);
end;

procedure Tshezhi.BitBtn2Click(Sender: TObject);
begin
if (edit1.Text<>'')and(edit2.Text<>'')and(edit3.Text<>'')and(edit4.Text<>'')then
begin
   frmmain.l1.text:=edit1.Text;
    frmmain.l2.text:=edit2.Text;
     frmmain.l3.text:=edit3.Text;
      frmmain.l4.text:=edit4.Text;
       frmmain.Image11.Picture:=image2.Picture;
       close;
       end else
       messagedlg('请将您的信息设置完整!',mtinformation,[mbok],0);
end;

procedure Tshezhi.BitBtn3Click(Sender: TObject);
begin
  if messagedlg('您真的要放弃了吗？',mtconfirmation,[mbyes]+[mbno],0)=idyes then
  begin
        edit1.Clear;
        edit2.Clear;
        edit3.Clear;
        edit4.Clear;
        end else
        bitbtn2.Click;

end;

procedure Tshezhi.FormShow(Sender: TObject);
begin
        edit1.Clear;
        edit2.Clear;
        edit3.Clear;
        edit4.Clear;
end;

procedure Tshezhi.BitBtn4Click(Sender: TObject);
begin
    close;
end;

procedure Tshezhi.BitBtn5Click(Sender: TObject);
begin
   editpwd.ShowModal;
end;

end.