ListFrm.pas
上传用户:daoqigc
上传日期:2021-04-20
资源大小:2795k
文件大小:1k
源码类别:

RichEdit

开发平台:

Delphi

  1. unit ListFrm;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  5.   StdCtrls, ExtCtrls;
  6. type
  7.   TfrmList = class(TForm)
  8.     lst: TListBox;
  9.     Bevel1: TBevel;
  10.     Button1: TButton;
  11.     procedure lstClick(Sender: TObject);
  12.     procedure FormShow(Sender: TObject);
  13.   private
  14.     { Private declarations }
  15.   public
  16.     { Public declarations }
  17.   end;
  18. var
  19.   frmList: TfrmList;
  20. implementation
  21. {$R *.DFM}
  22. procedure TfrmList.lstClick(Sender: TObject);
  23. begin
  24.   Button1.Enabled := lst.ItemIndex<>-1;
  25. end;
  26. procedure TfrmList.FormShow(Sender: TObject);
  27. begin
  28.   Button1.Enabled := lst.ItemIndex<>-1;
  29. end;
  30. end.