Syntaxe pour remplir un treeview ?Résolu

Question

Bonjour,

j'essaie de remplir un treeview à partir d'une table paradox et je galère comme un fou!!

Quelle est la syntaxe pour créer un parent et celle pour créer un enfant ????

Pour le moment j'ai écrit:
  table1.first;
     while ( not table1.eof) do
     begin
     if Table1.fieldbyName('ID_PRINC').AsInteger = Table1.fieldbyName('ID_SEC').AsInteger then
     
     showmessage(Table1.fieldbyName('CLAIR_PRINC').AsString) ;

     table1.next;
     end;

c'est pas grand chose mais bon !!!

Si quelqu'un veut bien me donner une piste
D'avance merci

Cordialement

Codial

padsou · Accepted Answer

var
  Tree1: TTreeNode;
begin

          with TreeView1.Items do
          begin
            Tree1 := Add(nil, 'Ma chaine parent');
            AddChild(Tree1, 'Ma chaine enfant');
          end;

end;

codial · Answer

Bonjour,

merci pour cette réponse que j'ai pu adapter à mon besoin.

Cordialement

Codial

cs_Delphiprog · Answer

Tu peux aussi jeter un oeil sur ce tuto, dont je suis l'auteur, et en tirer le meilleur : couleurs dans un TTreeView


<HR color=#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

codial · Answer

Bonsoir,
Merci DelphiProg je vais étudier ton tuto

Cordialement

Codial

Syntaxe pour remplir un treeview ?

4 réponses

Votre réponse

Discussions similaires