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

Delphi控件源码

开发平台:

Delphi

  1. unit ListFrame;
  2. interface
  3. uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  4.   ToolWin, ComCtrls, StdCtrls, ExtCtrls;
  5. type
  6.   TFrameList = class(TFrame)
  7.     ListBox: TListBox;
  8.     Edit: TEdit;
  9.     btnAdd: TButton;
  10.     btnRemove: TButton;
  11.     btnClear: TButton;
  12.     Bevel: TBevel;
  13.     procedure btnAddClick(Sender: TObject);
  14.     procedure btnRemoveClick(Sender: TObject);
  15.     procedure btnClearClick(Sender: TObject);
  16.   private
  17.     { Private declarations }
  18.   public
  19.     { Public declarations }
  20.   end;
  21. implementation
  22. {$R *.DFM}
  23. procedure TFrameList.btnAddClick(Sender: TObject);
  24. begin
  25.   ListBox.Items.Add (Edit.Text);
  26. end;
  27. procedure TFrameList.btnRemoveClick(Sender: TObject);
  28. begin
  29.   if ListBox.ItemIndex >= 0 then
  30.     ListBox.Items.Delete (ListBox.ItemIndex);
  31. end;
  32. procedure TFrameList.btnClearClick(Sender: TObject);
  33. begin
  34.   ListBox.Clear;
  35. end;
  36. end.
  37.