chercher un Text dans treeview

Question

Salut
j'ai 
deja trouvé Tutorial. Le Code sa marche bien mais je ne peut pas chercher
un Mon complete !

où 
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

Delphiturbo · Answer

sa marche tres bien je l' ai testee

cs_cantador · Answer

reteste et décrit ce que tu observes.

cantador

jackalunion · Answer

Pour le boutton ça marche pas
mais pour le ONCHANGEc'est OK

Chercher un Text dans treeview

3 réponses

Votre réponse

Discussions similaires