Chercher un Text dans treeview

Delphiturbo
Messages postés
68
Date d'inscription
mercredi 31 octobre 2007
Statut
Membre
Dernière intervention
29 juillet 2008
- 11 mai 2008 à 15:38
jackalunion
Messages postés
128
Date d'inscription
mercredi 8 janvier 2003
Statut
Membre
Dernière intervention
14 juillet 2008
- 14 juin 2008 à 04:08
Salut
j'ai
deja trouvé Tutorial. Le Code sa marche bien mais je ne peut pas chercher
un Mon complete !


je dois modifier?
Tutorials ici

et voila mon Code qui'l marche bien mais j'utilise ListBox et pas Treeview :
procedure TForm1.Edit1Change(Sender: TObject);
const
  indexStart = -1;
var
  search : array[0..128] of Char;
begin
  //make sure Length(Edit1.Text) <= 128
  StrPCopy(search, Edit1.Text) ;
  ListBox1.ItemIndex := ListBox1.Perform(LB_SELECTSTRING, indexStart, LongInt(@search)) ;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  search : array[0..128] of Char;
  indexactuell : integer;
begin
indexactuell := Listbox1.Itemindex;

  //make sure Length(Edit1.Text) <= 128
  StrPCopy(search, Edit1.Text) ;
  ListBox1.ItemIndex := ListBox1.Perform(LB_SELECTSTRING, indexactuell, LongInt(@search)) ;
  indexactuell := indexactuell + 1;
end;

je voudrais le meme chause avec Treeview et pas de ListBox

3 réponses

Delphiturbo
Messages postés
68
Date d'inscription
mercredi 31 octobre 2007
Statut
Membre
Dernière intervention
29 juillet 2008

12 mai 2008 à 00:04
sa marche tres bien je l' ai testee
0
cs_cantador
Messages postés
4720
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
31 juillet 2021
14
12 mai 2008 à 10:16
reteste et décrit ce que tu observes.

cantador
0
jackalunion
Messages postés
128
Date d'inscription
mercredi 8 janvier 2003
Statut
Membre
Dernière intervention
14 juillet 2008

14 juin 2008 à 04:08
Pour le boutton ça marche pas
mais pour le ONCHANGEc'est OK
0