[TTreeView] Suchen und Weitersuchen!



  • Vielleicht findet der eine oder der andere etwas nüzliches darin.

    //---------------------------------------------------------------------------
    void __fastcall TForm1::Button1Click(TObject *Sender)
    {
      static int iIndex;
      static int iAnzahl;
      if(Button1->Caption == "Suchen")
      {
        iIndex = -1;
        iAnzahl = 0;
        Button1->Caption = "Weiter suchen";
      }//if(Button1...
    
      for(iIndex += 1; iIndex < TreeView1->Items->Count; iIndex++)
      {
        if(TreeView1->Items->Item[iIndex]->Text == Edit1->Text)
        {
          iAnzahl++;
          iIndex = TreeView1->Items->Item[iIndex]->AbsoluteIndex;
          TreeView1->Items->Item[iIndex]->Selected = true;
          TreeView1->SetFocus();
          return;
        }//if(TreeView1...
      }//for(iIndex...
    
      ShowMessage("Ende erreicht. " + IntToStr(iAnzahl) + " Treffer!");
      Button1->Caption = "Suchen";
      Edit1->SetFocus();
    }
    //---------------------------------------------------------------------------
    


  • Vielen Dank!

    Das SetFocus hat mir noch gefehlt! Ich weiss zwar noch nicht so genau für was es da ist, nur das es irgendwie die Tastaturereignisse aufnimmt, naja vielleicht verstehe ich das auch noch irgendwann!

    T.



  • ➡ FAQ


Log in to reply