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

**spikto** · 22/01/2006, 21h42

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**spikto** · 23/01/2006, 12h38

Personne ne voit de solution

**Guile** · 23/01/2006, 14h07

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Pedro** · 23/01/2006, 14h15

Salut

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**spikto** · 23/01/2006, 18h18

Merci pour ces reponses mais le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Ne marche pas pour rehcherche le memo ?

**Guile** · 24/01/2006, 16h16

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

**LadyWasky** · 24/01/2006, 16h29

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

, le mémo se trouve dans le TabSheet, pas le Form1 :

Solution, au lieu de faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

fe := Tmemo.Create(mpv);

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

fe := Tmemo.Create(self);

Et là, tout marche normalement

**LadyWasky** · 24/01/2006, 16h48

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).