Discussion :

[Gregory666]

Bonjour a tous ,

Je développe un I.R.C personnel.

Voila un problème m'oppose pour chaque client qui envoie un message en privé, je créer une nouvelle page de discutions ( TTabSheet + Frame ) Caption de la page créer le pseudo du client

Composant du frame (RichEdit pour la réception des messages du client est un edit pour l'envoie d'un message.

Maintenant je cherche comme faire pour envoyer les messages reçus dans la bonne page (PageControl) Je n’arrive pas a accéder a mais composant du Frame (RichEdit)


Un grand merci pour votre réponse est le temps consacré a mon petit problème

[ALWEBER]

Bonjour,

Si tu peux nous envoyer un petit exemple, cela pour nous aider à te répondre.

Cordialement

[Gregory666]

Exemple message privé exemple : ah GregOry (Tout les clients son lister dans une listbox)

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
16
17
18
19
20
21
22
23
procedure TForm1.ListBox1DblClick(Sender: TObject);
var  
  Client: TTabSheet;
  I,Page: Integer; 
begin
   for I := 0 to ListBox1.items.count do
    if ListBox1.Selected[I] = True then
    begin  // On contrôle si la page n’existe pas
       for Page := 0 to PageControl1.count do
          if PageControl1.Pages[Page].Caption <> ListBox1.items.Strings[I] then // On créer la Page
           begin
              Client := TTabSheet.Create(Self);  
              with TFrame2.Create(self) do  
                begin   
                   Name := ListBox1.items.Strings[I];  
                   Align := alClient;  
                   Parent := Client;  
                end;  
 
         Client.PageControl := PageControl1;  
         Client.Caption := ListBox1.items.Strings[I]; 
    end;
end;

// Pour l'envoie du message cela se passe dans le frame;

Se code est le méme que pour la reception des messages exemple si GregOry m'envoie un message alors affiche le message dans la page créer ou déja existant (Frame : RichEdit) c'est la est mon problème je n'arrive pas a communiquer avec mon frame

[ALWEBER]

A Corriger

Code :

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

1
2
3
4
 
   ...
   for I := 0 to ListBox1.items.count do
   ...

par

Code :

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

1
2
3
4
 
   ...
   for I := 0 to ListBox1.items.count-1 do
   ...

Pour retrouver ton frame

Code :

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

1
2
3
4
5
6
7
 
   ...
var
  aFrame : TFrame2
begin
  aFrame := TFrame2 (Form1.FindComponent(ListBox1.items.Strings[I])) ;
   ...

[Gregory666]

{Créer une nouvelle page}

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button1Click(Sender: TObject);
  var
  Client : TTabSheet;
begin
  Client := TTabSheet.Create(Self);
  with TFrame1.Create(nil) do
  begin
    Name := 'Client' + intToStr(PageControl1.PageCount);
    Align := alClient;
    Parent := Client;
  end;
  Client.PageControl := PageControl1;
  Client.Caption := 'Client' + intToStr(PageControl1.PageCount);
end;

{Décharge le frame}

Code :

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

1
2
3
4
5
procedure TForm1.PageControl1CloseBtnClick(Sender: TComponent; TabIndex: Integer; var CanClose: Boolean;
  var Action: TacCloseAction);
begin
  Sender.FindComponent('Client' + Inttostr(TabIndex)).Free;
end;

{Envoie du texte dans le client3}

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Button2Click(Sender: TObject);
var
 Frame : TFrame1;
begin
  Frame := TFrame1 (FindComponent('Client3'));
  Frame.sRichEdit1.Text := 'Message Client3';
end;

// Erreur

[Gregory666]

Pièce jointe 174141

[ALWEBER]

Bonne lecture

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Client: TTabSheet;
begin
  Client := TTabSheet.Create(Self);
  Client.PageControl := PageControl1;
  Client.Caption := 'Client' + intToStr(PageControl1.PageCount);
  with TFrame1.Create(Self) do
  begin
    Name := 'Client' + intToStr(PageControl1.PageCount);
    Align := alClient;
    Parent := Client;
  end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  Frame : TFrame1;
  Client: TTabSheet;
begin
  Frame := TFrame1 (FindComponent('Client3'));
  Client := Frame.parent as TTabSheet ;
  PageControl1.ActivePage := Client ;
  Frame.sRichEdit1.Text := 'Message Client3';
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var
  Frame : TFrame1;
  Client: TTabSheet;
begin
  Frame := TFrame1 (FindComponent('Client3'));
  Client := Frame.parent as TTabSheet ;
  PageControl1.ActivePage := Client ;
  Frame.Free ;
  // Eventuellement Client.Free ;
end;