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