unit12.pas

铁路道口管理系统 开发源码 大家随便看看 呵呵

unit Unit12;

interface

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

type
  TForm12 = class(TForm)
    Image1: TImage;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    ShockwaveFlash1: TShockwaveFlash;
    Image5: TImage;
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure ShockwaveFlash1FSCommand(ASender: TObject; const command,
      args: WideString);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    x,y:integer;
    { Public declarations }
  end;

var
  Form12: TForm12;
  visibled,fla:boolean;
  flagbutton:integer;
  dir1:string;
implementation
uses unit5,unit8;

{$R *.dfm}

procedure TForm12.SpeedButton4Click(Sender: TObject);
begin
form5.N13Click(sender);
end;

procedure TForm12.SpeedButton6Click(Sender: TObject);
begin
form5.N14Click(sender);
end;

procedure TForm12.SpeedButton7Click(Sender: TObject);
begin
form5.ShowModal;

end;

procedure TForm12.SpeedButton3Click(Sender: TObject);
begin
form5.N15Click(sender);
end;

procedure TForm12.SpeedButton2Click(Sender: TObject);
begin
if visibled then
begin
speedbutton5.Visible:=true;
speedbutton8.Visible:=true;
speedbutton9.Visible:=true;
visibled:=false;
end
else
begin
visibled:=true;
speedbutton5.Visible:=false;
speedbutton8.Visible:=false;
speedbutton9.Visible:=false;
end;
end;

procedure TForm12.SpeedButton1Click(Sender: TObject);
begin
   close;
end;

procedure TForm12.FormShow(Sender: TObject);
begin
flagbutton:=1;
//useron.Show;
visibled:=true;
end;

procedure TForm12.SpeedButton5Click(Sender: TObject);
begin
form5.N17Click(sender);
if visibled then
begin
speedbutton5.Visible:=true;
speedbutton8.Visible:=true;
speedbutton9.Visible:=true;
visibled:=false;
end
else
begin
visibled:=true;
speedbutton5.Visible:=false;
speedbutton8.Visible:=false;
speedbutton9.Visible:=false;
end;
end;

procedure TForm12.SpeedButton8Click(Sender: TObject);
begin
form5.N7Click(sender);
if visibled then
begin
speedbutton5.Visible:=true;
speedbutton8.Visible:=true;
speedbutton9.Visible:=true;
visibled:=false;
end
else
begin
visibled:=true;
speedbutton5.Visible:=false;
speedbutton8.Visible:=false;
speedbutton9.Visible:=false;
end;
end;

procedure TForm12.SpeedButton9Click(Sender: TObject);
begin
form5.N9Click(sender);
if visibled then
begin
speedbutton5.Visible:=true;
speedbutton8.Visible:=true;
speedbutton9.Visible:=true;
visibled:=false;
end
else
begin
visibled:=true;
speedbutton5.Visible:=false;
speedbutton8.Visible:=false;
speedbutton9.Visible:=false;
end;
end;

procedure TForm12.FormCreate(Sender: TObject);
begin
getdir(0,dir1);
fla:=true;
shockwaveflash1.Movie:=dir1+'\small.swf';
end;

procedure TForm12.SpeedButton4MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
if fla then
begin
flagbutton:=tspeedbutton(sender).Tag;
shockwaveflash1.Top:=tspeedbutton(sender).Top+1;
shockwaveflash1.left:=tspeedbutton(sender).left+1;
shockwaveflash1.GotoFrame(0);
shockwaveflash1.Visible:=true;
shockwaveflash1.Loop:=true;
shockwaveflash1.Play;
fla:=false;
end;
end;

procedure TForm12.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
fla:=true;
shockwaveflash1.Stop;
shockwaveflash1.Visible:=false;
end;

procedure TForm12.ShockwaveFlash1FSCommand(ASender: TObject; const command,
  args: WideString);
begin
case flagbutton of
1:SpeedButton4.OnClick(asender);
2:SpeedButton6.OnClick(asender);
3:SpeedButton7.OnClick(asender);
4:SpeedButton3.OnClick(asender);
5:SpeedButton2.OnClick(asender);
6:SpeedButton1.OnClick(asender);
end;
end;

procedure TForm12.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if application.MessageBox('您是否真的要退出该系统？','询问',MB_YESNO+MB_ICONQUESTION) = id_YES then
  begin
    ChangeDisplay(x,y)
  end
  else
    canclose:=false;
end;

end.