boot.pas

这个程序软件很不错很不错的

unit Boot;

interface

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

type
  Tfrmboot = class(TfrmMDIbase)
    pbtn: TPanel;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Panel2: TPanel;
    PanelFuncB: TPanel;
    pb1: TPanel;
    pb2: TPanel;
    pb3: TPanel;
    pb4: TPanel;
    Image9: TImage;
    Image10: TImage;
    PanelFuncA: TPanel;
    pa1: TPanel;
    pa2: TPanel;
    pa5: TPanel;
    pa3: TPanel;
    pa4: TPanel;
    pa6: TPanel;
    lxpanel: TImage;
    imagebutton1: Timagebutton;
    imagebutton2: Timagebutton;
    imagebutton3: Timagebutton;
    imagebutton4: Timagebutton;
    imagebutton5: Timagebutton;
    imagetop: TImage;
    imagebutton6: Timagebutton;
    imagebutton7: Timagebutton;
    imagebutton8: Timagebutton;
    imagebutton9: Timagebutton;
    Image1: TImage;
    Image11: TImage;
    Image12: TImage;
    imagebutton10: Timagebutton;
    Image13: TImage;
    imagebutton11: Timagebutton;
    Image14: TImage;
    imagebutton12: Timagebutton;
    Image15: TImage;
    imagebutton13: Timagebutton;
    imagebutton22: Timagebutton;
    imagebutton23: Timagebutton;
    imagebutton21: Timagebutton;
    imagebutton24: Timagebutton;
    imagebutton25: Timagebutton;
    imagebutton26: Timagebutton;
    imagebutton27: Timagebutton;
    imagebutton28: Timagebutton;
    imagebutton29: Timagebutton;
    imagebutton30: Timagebutton;
    imagebutton31: Timagebutton;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Image44: TImage;
    Image45: TImage;
    Image46: TImage;
    Image47: TImage;
    Image48: TImage;
    Image49: TImage;
    Image36: TImage;
    Image37: TImage;
    Label22: TLabel;
    Label23: TLabel;
    Image38: TImage;
    Image39: TImage;
    Label24: TLabel;
    Label25: TLabel;
    Image40: TImage;
    Image41: TImage;
    Label26: TLabel;
    Label27: TLabel;
    Image24: TImage;
    Image25: TImage;
    Label10: TLabel;
    Label11: TLabel;
    Image26: TImage;
    Image27: TImage;
    Label12: TLabel;
    Label13: TLabel;
    Image28: TImage;
    Image29: TImage;
    Label14: TLabel;
    Label15: TLabel;
    Image8: TImage;
    Image16: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Image17: TImage;
    Label4: TLabel;
    Image20: TImage;
    Label6: TLabel;
    imagebutton14: Timagebutton;
    imagebutton15: Timagebutton;
    imagebutton16: Timagebutton;
    imagebutton17: Timagebutton;
    imagebutton18: Timagebutton;
    procedure FormCreate(Sender: TObject);
    procedure Image7Click(Sender: TObject);
    procedure Image6Click(Sender: TObject);
    procedure Image5Click(Sender: TObject);
    procedure Image4Click(Sender: TObject);
    procedure Image3Click(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure Label1MouseEnter(Sender: TObject);
    procedure Label2MouseEnter(Sender: TObject);
    procedure Label3MouseEnter(Sender: TObject);
    procedure Label4MouseEnter(Sender: TObject);
    procedure Label5MouseEnter(Sender: TObject);
    procedure Label6MouseEnter(Sender: TObject);
    procedure Label7MouseEnter(Sender: TObject);
    procedure Label8MouseEnter(Sender: TObject);
    procedure Label9MouseEnter(Sender: TObject);
    procedure Label10MouseEnter(Sender: TObject);
    procedure Label11MouseEnter(Sender: TObject);
    procedure Label12MouseEnter(Sender: TObject);
    procedure Label13MouseEnter(Sender: TObject);
    procedure Label14MouseEnter(Sender: TObject);
    procedure Label15MouseEnter(Sender: TObject);
    procedure Label16MouseEnter(Sender: TObject);
    procedure Label17MouseEnter(Sender: TObject);
    procedure Label18MouseEnter(Sender: TObject);
    procedure Label19MouseEnter(Sender: TObject);
    procedure Label20MouseEnter(Sender: TObject);
    procedure Label21MouseEnter(Sender: TObject);
    procedure Label22MouseEnter(Sender: TObject);
    procedure Label23MouseEnter(Sender: TObject);
    procedure Label24MouseEnter(Sender: TObject);
    procedure Label25MouseEnter(Sender: TObject);
    procedure Label26MouseEnter(Sender: TObject);
    procedure Label27MouseEnter(Sender: TObject);
    procedure Label28MouseEnter(Sender: TObject);
    procedure Label29MouseEnter(Sender: TObject);
    procedure Label30MouseEnter(Sender: TObject);
    procedure Label31MouseEnter(Sender: TObject);
    procedure Label32MouseEnter(Sender: TObject);
    procedure Label33MouseEnter(Sender: TObject);
    procedure Label34MouseEnter(Sender: TObject);
    procedure Label35MouseEnter(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    procedure getactive(const btnid: integer);
    procedure lbtnmousemove(const itag:integer);     
    { Public declarations }
  end;

var
  frmboot: Tfrmboot;

implementation

uses Global;

{$R *.dfm}

{ Tfrmboot }

procedure Tfrmboot.getactive(const btnid: integer);
var
i,j,k:integer;
begin

  for i:=0 to pbtn.ControlCount-1 do
   begin
    (pbtn.Controls[i] as Timage).Picture.LoadFromFile(
      ExtractfilePath(application.ExeName)+'picture\program\e'+inttostr((pbtn.Controls[i] as Timage).Tag)+'.jpg');
    if (pbtn.Controls[i] as Timage).Tag=btnid then
      begin
      (pbtn.Controls[i] as Timage).Picture.LoadFromFile(
        ExtractfilePath(application.ExeName)+'picture\program\d'+inttostr((pbtn.Controls[i] as Timage).Tag)+'.jpg');
      end;
   end;

  for j:=0 to panelFuncA.ControlCount - 1 do
    begin
      (panelFuncA.Controls[j] as Tpanel).Visible :=False;

      if (panelFuncA.Controls[j] as Tpanel).Tag=btnid then
        (panelFuncA.Controls[j] as Tpanel).Visible:=True;
    end;

  for k:=0 to panelFuncB.ControlCount - 1 do
    begin
      (panelFuncb.Controls[k] as Tpanel).Visible :=False;

      if (panelFuncb.Controls[k] as Tpanel).Tag=btnid then
        (panelFuncb.Controls[k] as Tpanel).Visible:=True;
    end;

end;

procedure Tfrmboot.lbtnmousemove(const itag: integer);
var
  i:integer;
begin
  for i:=0 to self.ComponentCount-1 do
    begin
      if (self.Components[i] is Tlabel) then
        begin
          (self.Components[i] as Tlabel).Font.Color:=clBlack;
          (self.Components[i] as Tlabel).Font.Style:=[];
          if (self.Components[i] as Tlabel).Tag = itag then
            begin
              (self.Components[i] as Tlabel).Font.Color:=clBlue;
              (self.Components[i] as Tlabel).Font.Style:=[fsUnderline];
            end;
        end;
    end;
end;

procedure Tfrmboot.FormCreate(Sender: TObject);
var
  i:integer;
begin
  inherited;
  self.Left:=0;
  self.Top:=0;
  self.Position:=poDesigned;
  imagetop.Left:=0;
  imagetop.Top:=0;

  pa1.Visible:=True;
  pa2.Visible:=False;
  pa3.Visible:=False;
  pa4.Visible:=False;
  pa5.Visible:=False;
  pa6.Visible:=False;

  pb1.Visible:=True;
  pb2.Visible:=False;
  pb3.Visible:=False;
  pb4.Visible:=False;  

  lxpanel.Picture.LoadFromFile(ExtractfilePath(application.ExeName)+'picture\system\boot1.jpg');
  imagetop.Picture.LoadFromFile(ExtractfilePath(application.ExeName)+'picture\system\PathTitle.jpg');
  for i:=0 to pbtn.ControlCount - 1 do
    begin
    (pbtn.Controls[i] as Timage).Picture.LoadFromFile(
      ExtractfilePath(application.ExeName)+'\picture\program\e'+inttostr((pbtn.Controls[i] as Timage).Tag)+'.jpg');
    end;

end;

procedure Tfrmboot.Image7Click(Sender: TObject);
begin
  inherited;
  getactive(1);
end;

procedure Tfrmboot.Image6Click(Sender: TObject);
begin
  inherited;
  getactive(1);
end;

procedure Tfrmboot.Image5Click(Sender: TObject);
begin
  inherited;
  getactive(2);
end;

procedure Tfrmboot.Image4Click(Sender: TObject);
begin
  inherited;
  getactive(3);
end;

procedure Tfrmboot.Image3Click(Sender: TObject);
begin
  inherited;
  getactive(4);
end;

procedure Tfrmboot.Image2Click(Sender: TObject);
begin
  inherited;
  getactive(5);
end;

procedure Tfrmboot.Image1Click(Sender: TObject);
begin
  inherited;
  getactive(6);
end;

procedure Tfrmboot.Label1MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label2MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label3MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label4MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label5MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label6MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label7MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label8MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label9MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label10MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label11MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label12MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label13MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label14MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label15MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label16MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label17MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label18MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label19MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label20MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label21MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label22MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label23MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label24MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label25MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label26MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label27MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label28MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label29MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label30MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label31MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label32MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label33MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label34MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.Label35MouseEnter(Sender: TObject);
begin
  inherited;
  Lbtnmousemove((sender as TLabel).Tag);
end;

procedure Tfrmboot.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  frmboot:=nil;
end;

end.