wait.pas

来自「网吧商品销售平台」· PAS 代码 · 共 54 行

unit wait;

interface

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

type
  TWaitReceiveForm = class(TForm)
    RzBackground1: TRzBackground;
    RzLabel1: TRzLabel;
    Shape1: TShape;
    Label1: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Label1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  WaitReceiveForm: TWaitReceiveForm;

implementation

uses client;
{$R *.dfm}

procedure TWaitReceiveForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
if ClientForm.not_allowed_close=True then
begin
action:=canone;
end
else
action:=cafree;
end;

procedure TWaitReceiveForm.Button1Click(Sender: TObject);
begin
close;
end;

procedure TWaitReceiveForm.Label1Click(Sender: TObject);
begin
close;
end;

end.