changnameform.pas

本软件作为交流使用

unit ChangNameForm;

interface

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

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Image1: TImage;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Edit2: TEdit;
    Edit3: TEdit;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(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
  Form2: TForm2;
  Fx,Fy: Integer;

implementation
uses Txtview;

{$R *.dfm}

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

procedure TForm2.Button1Click(Sender: TObject);
var
   FName:File;
begin
   Edit3.Text:=Edit3.Text+Edit1.Text;
   AssignFile(FName,Edit2.Text);
   Rename(FName,Edit3.Text);
   Form1.FileListBox1.Update;
   Form2.Hide;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
   Form2.Hide;
   Form1.Memo1.SetFocus;
end;

procedure TForm2.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 TForm2.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    Fx:=x;
    Fy:=y;
end;

end.