Tabsheet et memo : même nom et donc problème!!!!

Bonjour,

J'ai un pagecontrol et un tabsheet créer j'en crée un autre avec un popup menu.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

procedure TForm1.PVClick(Sender: TObject); var mpv : Ttabsheet; fe : Tmemo; begin mpv := TTabsheet.Create(self); mpv.Parent := Pagecontrol1; mpv.PageControl := pagecontrol1; mpv.Caption := Treeview1.Selected.Text; fe := Tmemo.Create(mpv); fe.Parent:=mpv; fe.align := alCLient; end;

---

J'ai déjà vu le FAQ et tous les postes concernant sa
(http://www.developpez.net/forums/viewtopic.php?t=394054)

Mais le problème qui intervient quand je crée deux fois le tabsheet et le memo il me prend automatiquement le dernier.
Pour être plus clair, je fais un chat et à l'aide de mon popup menu je clique sur PV et donc si j'ai plusieurs tabsheet en pv et il me prend seulement le dernier lorsque je fais fe.lines.add('texte'). COmment definir lequel memo on veut afficher les messages privées ?

Merci d'avance de vos réponses.

Personne ne voit de solution :(

Il faut que tu nommes tes composants si tu veux pouvoir les réutiliser après. Utilise un compteur ou le pseudo du correspondant si c'est un tchat.

Un truc du genre :

Code:

---

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

procedure TForm1.PVClick(Sender: TObject); var mpv : Ttabsheet; fe : Tmemo; begin mpv := TTabsheet.Create(self); mpv.Name := 'Onglet' + Pseudo; mpv.Parent := Pagecontrol1; mpv.PageControl := pagecontrol1; mpv.Caption := Treeview1.Selected.Text; fe := Tmemo.Create(mpv); fe.Name := 'Memo' + Pseudo; fe.Parent:=mpv; fe.align := alCLient; end;

---

Comme ça, ensuite si tu veux ajouter du texte dans le bon Memo tu fais :

Code:

---

1 2	TMemo(FindComponent('Memo' + Pseudo)).Lines.Add('Texte');

---

:wink:

Salut :D
Bonne idée. Par contre, si le pseudo en question est "~--[Da R0x0r ps3ud0]--~", tu peux être sûr que ça plante... ;)
En général, dans ces cas-là, j'utilise une valeur qui ne sera jamais prise en défut: les handles...
Exemple:

Code:

---

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

procedure TForm1.PVClick(Sender: TObject); var mpv : Ttabsheet; fe : Tmemo; begin mpv := TTabsheet.Create(self); mpv.Name := 'Onglet' + IntToStr(mpv.Hanle); mpv.Parent := Pagecontrol1; mpv.PageControl := pagecontrol1; mpv.Caption := Treeview1.Selected.Text; fe := Tmemo.Create(mpv); fe.Name := 'Memo' + IntToStr(fe.Handle); fe.Parent:=mpv; fe.align := alCLient; end;

---

Comme ça t'es sûr que ça marche systématiquement :D

Merci pour ces reponses mais le code :

Code:

---

TMemo(FindComponent('Memo' + Pseudo)).Lines.Add('Texte');

---

Ne marche pas pour rehcherche le memo ?

Ah bon ?
C'est quoi l'erreur qu'il te renvoie ?
A moins qu'il ne trouve pas le Memo, à ce moment là, vérifie bien le nom de ton composant, parce que ça doit marcher :o

Citation:

---

Envoyé par Guile

Ah bon ?
C'est quoi l'erreur qu'il te renvoie ?
A moins qu'il ne trouve pas le Memo, à ce moment là, vérifie bien le nom de ton composant, parce que ça doit marcher :o

---

+1
Je confirme à une nuance près :wink:, le mémo se trouve dans le TabSheet, pas le Form1 :

Solution, au lieu de faire :

Code:

---

fe := Tmemo.Create(mpv);

---

Il faut faire comme Delphi (mettre le Owner comme étant la fiche parente, donc :

Code:

---

fe := Tmemo.Create(self);

---

Et là, tout marche normalement :)

Citation:

---

Envoyé par Guile

Ah bon ?
C'est quoi l'erreur qu'il te renvoie ?
A moins qu'il ne trouve pas le Memo, à ce moment là, vérifie bien le nom de ton composant, parce que ça doit marcher :o

---

En fait, comme le Owner du Memo est le TabSheet mvp, et non la fiche Form1 (tel que c'était écrit dans son code et le tient), FindComponent renvoyait nil, et du coup ça coinçait avec TMemo(nil).

Bien vu Waskol :wink:
Il faudrait que je teste le code que j'écris sur ce site parfois :oops: mais l'idée était là :lol:

Merci les gars sa marche nikel