?? czrz_form.pas
字號:
unit CZRZ_Form;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, TFlatMemoUnit, TFlatButtonUnit;
type
TCZRZ_F = class(TForm)
CZRZ_FM: TFlatMemo;
FlatButton1: TFlatButton;
FlatButton2: TFlatButton;
procedure FlatButton1Click(Sender: TObject);
procedure FlatButton2Click(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
CZRZ_F: TCZRZ_F;
implementation
uses share;
{$R *.dfm}
//******************************************************************************
procedure TCZRZ_F.FlatButton1Click(Sender: TObject);
var
name:string;
Hour, Min, Sec, MSec: Word;
begin
DecodeTime(now, Hour, Min, Sec, MSec);
name:='.\日志文件\'+datetimetostr(date)+'-'+IntToStr(Hour)+'-'+IntToStr(Min)+'-'+IntToStr(Sec)+'.txt';
CZRZ_F.CZRZ_FM.Lines.SaveToFile(name);
showmessage('日志導出成功');
end;
//******************************************************************************
procedure TCZRZ_F.FlatButton2Click(Sender: TObject);
begin
close;
end;
//******************************************************************************
procedure TCZRZ_F.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
num:=self.HelpContext;
F1_Help(key);
end;
//******************************************************************************
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -