ini.pas

来自「物流管理系统是一个典型的数据库应用程序」· PAS 代码 · 共 48 行

{*********************************初始化模块******************************}
unit ini;

interface

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

type
  Tf_ini = class(Tf_frame)
    Image1: TImage;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    procedure Dragform (var msg: TWmNchitTest);message wm_nchittest;
    { Public declarations }
  end;

var
  f_ini: Tf_ini;

implementation

{$R *.dfm}
var
  ShowTime: Integer = 0;
//自定义消息处理过程,用户在客户区拖动窗体
procedure Tf_ini.Dragform(var msg: TWMNchitTest);
begin
  Inherited;
  if Msg.Result = htclient then
    Msg.result := htcaption;
end;

procedure Tf_ini.Timer1Timer(Sender: TObject);
begin
  inherited;
  if ShowTime >20 then //延时
    Close
  else
    inc(ShowTime);
end;

end.