ufrmfavoritecfg.pas

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

unit ufrmFavoriteCfg;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TB2Dock, TB2ToolWindow, TBX, TBXDkPanels, ComCtrls;

type
  TfrmFavoriteCfg = class(TForm)
    TBXToolWindow1: TTBXToolWindow;
    TBXButton1: TTBXButton;
    TBXButton2: TTBXButton;
    TreeView1: TTreeView;
    procedure TBXButton1Click(Sender: TObject);
    procedure TBXButton2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses uSECData;

{$R *.dfm}

procedure TfrmFavoriteCfg.TBXButton1Click(Sender: TObject);
begin
  if TreeView1.Selected<>nil then
  begin
    SecData.qryTmp.Close;
    SecData.qryTmp.SQL.Clear;
    SecData.qryTmp.SQL.Text:='delete from Favorite where ID=:ID';
    SecData.qryTmp.ParamByName('ID').AsInteger:=TreeView1.Selected.StateIndex;
    SecData.qryTmp.ExecSQL;

    TreeView1.Selected.Delete;  
  end;
end;

procedure TfrmFavoriteCfg.TBXButton2Click(Sender: TObject);
begin
  Close;
end;

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

end.