p_information.~pas

图书出版行业 对于图书样稿/清样/样书/成书的质检环节控制

unit P_information;

interface

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

type
  TF_information = class(TForm)
    Image1: TImage;
    SpeedButton1: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_information: TF_information;

implementation

uses p_data, p_main, p_jiayin;

{$R *.dfm}

procedure TF_information.SpeedButton1Click(Sender: TObject);
begin
//PlaySound(PChar('msg.wav'),0,12);
f_main.Timer2.Enabled:=false;
close;
end;

end.