[D7] Treeview - Gérer l'édition

Bonjour à tous,

Je charge un treeview depuis une base, et j'aimerais afficher,dans le texte du noeud, 2 informations (le libellé et l'id).
Seulement, j'aimerais que lors de l'édition, il n'y ait que le libellé, pour le changer.

Par exemple, mes noeuds, lors de la visalisation, affichent: "Chaise (12)".
Et lorsque l'on veut éditer le texte, il n'y ait que: "Chaise", dans la zonne de saisie.
Et une fois qu'on a validé (Chaises, par exemple), il réaffiche l'id... "Chaises (12)".

Est ce que c'est possible ?

Je t'insiterais à utiliser la virtualtreeview qui permet enormement de choses:

http://www.soft-gems.net/VirtualTreeview/

Via ce composant tu pourras afficher plusieurs colonnes, en editer qu'une seule... etc...

Bonjour Medgir

Sympa ton controle, mais je le met de coté pour une prochaine fois.
En effet, j'aimerais continuer à utiliser mon treeview standard... Le mien est trop implémenté et j'aimerais garder une certaine portabilité sur cette application.

Est ce que c'est possible, donc ?

Je pensait charger le libellé lors de l'édition, mais quand je fait:
node.texte := 'Test';
dans le onEditing, il me le change à la fin de l'édition, pas avant.

Salut,
J'aime bien tes challenges à toi ... ;)
J'ai trouvé un truc mais j'avoue ne pas avoir recherché toutes les possibilités ... Donc, il y a peut-être plus "soft" :
C'est une petite proc appelée dans l'évènement OnEditing du treeview qui change le texte du noeud au moment de l'édition :

// Modification du text de l'edit d'un noeud :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TForm1.NodeChangeText(aText : String); var i : integer; aHwnd: THandle; begin aHwnd := TreeView_GetEditControl(TreeView1.Handle); for i := 1 to Length(aText) do PostMessage(aHwnd, WM_CHAR, ord(aText[i]),0); end;   // Appel de la proc NodeChangeText procedure TForm1.TreeView1Editing(Sender: TObject; Node: TTreeNode; var AllowEdit: Boolean); begin NodeChangeText('Mon texte'); end;

---

Je pense que ça répond à ton besoin non ?
A+
Eb.

Bonjour ebastien,

Toujours au rendez vous. :D

Comme d'habitude,ta solution ressemble bien à ce que je veux,
seulement, comme d'habitude, je n'arrive pas à la faire marcher,hi.

C'est à: TreeView_GetEditControl que ca bloque...
C'est quelle bibliothèque ?

T'as vu, j'ai fait un effort ! pas d'héritage de TcustomTreeview ;)
Tu ajoutes l'unité CommCtrl et ça devrait marcher ...
(désolé de ne pas l'avoir précisé !)
Eb.

Impeccable, ca marche à merveille.

Un question... Pourquoi, tout simplement ca:

Code:

---

1 2 3 4 5 6 7 8

procedure TfrmMain.tvLieuxEditing(Sender: TObject; Node: TTreeNode; var AllowEdit: Boolean); var i : integer; str: String; begin str := 'Bonjour'; for i := 1 to Length(str) do PostMessage(Node.Handle, WM_CHAR, ord(str[i]),0); end;

---

Ne marche pas ?

Cette solution ne fonctionne pas parce que tu tentes d'envoyer un message au noeud qui ne sait (manifestement) pas y répondre !
La fonction TreeView_GetEditControl récupère le handle du champ Edit du noeud qui est crée au moment ou tu rentres en mode édition. C'est à ce champ Edit qu'il faut envoyer le message WM_CHAR pour lui changer son texte.
Bon courage pour la suite !
A+
Eb.

Très bien,

Merci encore.