Frame3u.pas
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:1k
源码类别:

Delphi控件源码

开发平台:

Delphi

  1. unit Frame3u;
  2. interface
  3. uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  4.   StdCtrls;
  5. type
  6.   TFrame3 = class(TFrame)
  7.     ListBox1: TListBox;
  8.     btnAdd: TButton;
  9.     btnDelete: TButton;
  10.     LabelFile: TLabel;
  11.     Label1: TLabel;
  12.     btnSave: TButton;
  13.     procedure btnAddClick(Sender: TObject);
  14.     procedure btnDeleteClick(Sender: TObject);
  15.     procedure btnSaveClick(Sender: TObject);
  16.   private
  17.     { Private declarations }
  18.   public
  19.     procedure CreateWnd; override;
  20.   end;
  21. implementation
  22. {$R *.DFM}
  23. procedure TFrame3.btnAddClick(Sender: TObject);
  24. var
  25.   strNew: string;
  26. begin
  27.   if InputQuery ('Enter new item', 'Text', strNew) then
  28.     ListBox1.Items.Add (strNew);
  29. end;
  30. procedure TFrame3.btnDeleteClick(Sender: TObject);
  31. begin
  32.   if ListBox1.ItemIndex >= 0 then
  33.     ListBox1.Items.Delete (ListBox1.ItemIndex);
  34. end;
  35. procedure TFrame3.CreateWnd;
  36. begin
  37.   inherited;
  38.   // load data
  39.   ListBox1.Items.LoadFromFile (LabelFile.Caption);
  40. end;
  41. procedure TFrame3.btnSaveClick(Sender: TObject);
  42. begin
  43.   ListBox1.Items.SaveToFile (LabelFile.Caption);
  44. end;
  45. end.