sl_ll_unit.pas

来自「地理资源的录入程序运用了api的一些知识」· PAS 代码 · 共 62 行

unit sl_ll_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, ExtCtrls, Menus, StdCtrls, WinSkinStore,
  WinSkinData;

type
  Tslllfrm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  slllfrm: Tslllfrm;

implementation

{$R *.dfm}
 USES DATAM, Unit1;
procedure Tslllfrm.FormShow(Sender: TObject);
begin
edit1.SetFocus;
end;

procedure Tslllfrm.Button1Click(Sender: TObject);
var test:string;
begin
test:=edit1.Text;
if test='' then
begin
 showmessage('请输入文件夹名称!');
   edit1.SetFocus ;
 exit;
 end
else
 BEGIN
CreateDirectory(PChar(sltfrm.stv_1.SelectedFolder.PathName+'\'+Test),nil);
SLLLFRM.Close ;
END;
//showmessage('你已成功建立文件夹!');
sltfrm.slv_1.Refresh;
sltfrm.STV_1.Refresh(sltfrm.STV_1.TopItem);
 end;
procedure Tslllfrm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
IF key=#13 then
  button1.Click;
end;

end.