【delphi开源代码栏目提醒】:以下是网学会员为您推荐的delphi开源代码-ini.pas，希望本篇文章对您学习有所帮助。

    {*********************************初始化模块******************************}
    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.
    

上一篇：inheritF.pas
下一篇：法律专业开题报告范文