unit11.pas

进行图纸的资料归档及管理

unit Unit11;

interface

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

type
  TForm5 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    ListBox1: TListBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    PopupMenu1: TPopupMenu;
    D1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N3Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure D1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    filenames:string;
  end;

var
  Form5: TForm5;

implementation

{$R *.DFM}

procedure TForm5.BitBtn3Click(Sender: TObject);
begin
listbox1.items.savetofile(filenames);
end;

procedure TForm5.BitBtn1Click(Sender: TObject);
var s:string   ;
begin
s:=inputbox('输入内容','内容','');
if length(s)<>0 then
    listbox1.items.add(s);
end;

procedure TForm5.BitBtn2Click(Sender: TObject);
begin
listbox1.items.delete(listbox1.ItemIndex);
end;

procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);
begin
listbox1.items.Clear;
action:=cafree;
end;

procedure TForm5.N3Click(Sender: TObject);
begin
listbox1.sorted:=true;
end;

procedure TForm5.N2Click(Sender: TObject);
var s:string   ;
begin
s:=inputbox('输入内容','内容','');
if length(s)<>0 then
    listbox1.items.add(s);
end;

procedure TForm5.D1Click(Sender: TObject);
begin
listbox1.items.delete(listbox1.ItemIndex);
end;

end.