Reply to [TTreeView] Suchen und Weitersuchen! on Wed, 13 Oct 2004 13:41:31 GMT

xxs — Wed, 13 Oct 2004 13:41:31 GMT

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();
}
//---------------------------------------------------------------------------

Reply to [TTreeView] Suchen und Weitersuchen! on Wed, 13 Oct 2004 14:19:55 GMT

Thorben — Wed, 13 Oct 2004 14:19:55 GMT

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!

Reply to [TTreeView] Suchen und Weitersuchen! on Fri, 15 Oct 2004 19:16:27 GMT

aha! — Fri, 15 Oct 2004 19:16:27 GMT

FAQ