unit1.pas

来自「delphi开发的小软件」· PAS 代码 · 共 104 行

unit Unit1;

interface

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

type
  TMainForm = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image5Click(Sender: TObject);
    procedure Image3Click(Sender: TObject);
    procedure Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image6MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

uses Unit2, Unit4, Unit3;

{$R *.dfm}

procedure TMainForm.Button1Click(Sender: TObject);
begin
    Application.CreateForm(TAddForm, AddForm);
    AddForm.show;
    MainForm.Enabled:=FALSE;
end;

procedure TMainForm.Button3Click(Sender: TObject);
begin
    MainForm.Close;
end;

procedure TMainForm.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Image3.Visible:=FALSE;
  Image5.Visible:=FALSE;
  Image7.Visible:=FALSE;
end;

procedure TMainForm.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Image5.Visible:=TRUE;
end;

procedure TMainForm.Image5Click(Sender: TObject);
begin
  MainForm.Close;
end;

procedure TMainForm.Image3Click(Sender: TObject);
begin
    Application.CreateForm(TAddForm, AddForm);
    AddForm.show;
    MainForm.Enabled:=FALSE;
end;

procedure TMainForm.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
    Image3.Visible:=TRUE;
end;

procedure TMainForm.Image6MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Image7.Visible:=TRUE;
end;

procedure TMainForm.Image7Click(Sender: TObject);
begin
    Application.CreateForm(TSearchForm, SearchForm);
    SearchForm.show;
    MainForm.Enabled:=FALSE;
end;

end.