cnfform.pas

本软件作为交流使用

unit CNFForm;

interface

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

type
  TCFileFM = class(TForm)
    EditNew: TEdit;
    Button1: TButton;
    Button2: TButton;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CFileFM: TCFileFM;
  Fx,Fy:Integer;

implementation
uses TxtView;

{$R *.dfm}

procedure TCFileFM.FormCreate(Sender: TObject);
begin
    Image1.Picture.LoadFromFile('E:\Delphi应用\学习结果\Txt文件浏览器\N.gif');
end;

procedure TCFileFM.Button2Click(Sender: TObject);
begin
    CFileFM.Hide;
end;

procedure TCFileFM.Button1Click(Sender: TObject);
begin
    Form1.Memo1.Clear;//清空memo的内容,当然不会删除其他文件了
    Form1.FileListBox1.Items.Add(EditNew.Text+'.txt');//在列表里面添加记录
    Form1.Edit1.Text:=EditNew.Text;//使可以有查找功能的Edit1获得查找文字
    Form1.FileListBox1.Refresh;//刷新列表,使显示新建的记录
    Form1.Memo1.Lines.SaveToFile(Form1.FileListBox1.FileName);//保存记录,以便编辑
    CFileFM.Hide;//隐藏窗口
    Form1.Memo1.SetFocus;//转移焦点
end;

procedure TCFileFM.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   if (ssLeft in Shift) then
   begin
      Left:=Left+(x-Fx);
      Top:=Top+(y-Fy);
   end;
end;

procedure TCFileFM.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   Fx:=x;
   Fy:=y;
end;

end.