utoolsprop.pas

一个基于不需引擎的文件管理系统,使用了许多界面比较好的控件

unit UToolsprop;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SpTBXItem, SpTBXTabs, TB2Item, TBX, RzBtnEdt, StdCtrls, Mask,
  RzEdit, TBXDkPanels, SpTBXDkPanels, ExtCtrls;

type
  TToolProp = class(TForm)
    SpTBXTabControl1: TSpTBXTabControl;
    SpTBXTabItem1: TSpTBXTabItem;
    SpTBXTabSheet1: TSpTBXTabSheet;
    SpTBXLabel1: TSpTBXLabel;
    edCaption: TRzEdit;
    SpTBXLabel2: TSpTBXLabel;
    edPath: TRzButtonEdit;
    OpenDlg: TOpenDialog;
    Panel1: TPanel;
    SpTBXButton1: TSpTBXButton;
    SpTBXButton2: TSpTBXButton;
    procedure SpTBXButton2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure SpTBXButton1Click(Sender: TObject);
    procedure edPathButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ToolProp: TToolProp;

implementation

uses uMain;

{$R *.dfm}

procedure TToolProp.SpTBXButton2Click(Sender: TObject);
begin
  ModalResult :=mrcancel;
end;

procedure TToolProp.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=cafree;
end;

procedure TToolProp.FormDestroy(Sender: TObject);
begin
  ToolProp:=nil;
end;

procedure TToolProp.SpTBXButton1Click(Sender: TObject);
begin
  if trim(edCaption.Text) ='' then
  begin
    MessageBox(Handle, '请指定一名称。', '提示', MB_ICONASTERISK);
    abort;
  end;
  if trim(edPath.Text) ='' then
  begin
    MessageBox(Handle, '请指定一路径。', '提示', MB_ICONASTERISK);
    abort;
  end;
  ModalResult :=mrok;
end;

procedure TToolProp.edPathButtonClick(Sender: TObject);
begin
  if OpenDlg.Execute then
  begin
    edPath.Text :=OpenDlg.FileName;
  end;
end;

end.