Unit1.cpp
上传用户:lhxd_sz
上传日期:2014-10-02
资源大小:38814k
文件大小:2k
源码类别:

VC书籍

开发平台:

C++ Builder

  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  4. #include "Unit1.h"
  5. //---------------------------------------------------------------------------
  6. #pragma package(smart_init)
  7. #pragma resource "*.dfm"
  8. TForm1 *Form1;
  9. //---------------------------------------------------------------------------
  10. __fastcall TForm1::TForm1(TComponent* Owner)
  11.         : TForm(Owner)
  12. {
  13. }
  14. //---------------------------------------------------------------------------
  15. void __fastcall TForm1::ComboBox1Change(TObject *Sender)
  16. {
  17.   int ii,st;
  18.   AnsiString ss;
  19.   ComboBox1->DroppedDown=True;
  20.   ss=ComboBox1->Text.Trim();
  21.   st=ComboBox1->SelStart;
  22.   ii=SendMessage(ComboBox1->Handle,CB_FINDSTRING,0,long(ss.c_str()));
  23.   if(ii!=CB_ERR)
  24.   {
  25.     ComboBox1->ItemIndex=ii;
  26.     ComboBox1->Text=ss;
  27.     ComboBox1->SelStart=st;
  28.   }
  29. }
  30. //---------------------------------------------------------------------------
  31. void __fastcall TForm1::Edit1Change(TObject *Sender)
  32. {
  33.   int ii,st;
  34.   AnsiString ss;
  35.   ss=Edit1->Text.Trim();
  36.   ii=SendMessage(ListBox1->Handle,LB_FINDSTRING,0,long(ss.c_str()));
  37.   if(ii!=LB_ERR)
  38.     ListBox1->ItemIndex=ii;
  39. }
  40. //---------------------------------------------------------------------------
  41. void __fastcall TForm1::Edit2Change(TObject *Sender)
  42. {
  43.   int ii,ll;
  44.   AnsiString ss,ss1;
  45.   ss=Edit2->Text.Trim();
  46.   ll=ss.Length();
  47.   for(ii=0;ii<ListBox1->Items->Count;ii++)
  48.   {
  49.     ss1=ListBox1->Items->Strings[ii];
  50.     ss1=ss1.SubString(1,ll);
  51.     if(ss1==ss)
  52.     {
  53.       ListBox1->ItemIndex=ii;
  54.       break;
  55.     }
  56.   }
  57. }
  58. //---------------------------------------------------------------------------