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

RichEdit

开发平台:

Delphi

  1. //---------------------------------------------------------------------------
  2. #include <vclvcl.h>
  3. #pragma hdrstop
  4. #include "ListFrm.h"
  5. //---------------------------------------------------------------------------
  6. #pragma resource "*.dfm"
  7. TfrmList *frmList;
  8. //---------------------------------------------------------------------------
  9. __fastcall TfrmList::TfrmList(TComponent* Owner)
  10.     : TForm(Owner)
  11. {
  12. }
  13. //---------------------------------------------------------------------------
  14. void __fastcall TfrmList::lstClick(TObject *Sender)
  15. {
  16.   Button1->Enabled = lst->ItemIndex!=-1;
  17. }
  18. //---------------------------------------------------------------------------
  19. void __fastcall TfrmList::FormShow(TObject *Sender)
  20. {
  21.   Button1->Enabled = lst->ItemIndex!=-1;
  22. }
  23. //---------------------------------------------------------------------------