📄 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.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -