Discussion :

[Runlevel]

Salut tout le monde.
J'aurais pas du mettre [Débutant] mais plutôt [Débile], je le sens d'avance.
Donc, au risque de passer pour un demeuré, je me lance quand même ^^

Question toute bête: On ne peut pas instancier un nouveau composant avec un constructeur par recopie ?

Dans le cas pratique, j'ai un TRichEdit placé sur une form, et j'aimerais en créer X autres dynamiquement qui reprennent toutes les propriétés du premier (Font, taille, etc..) Et oui, parce que d'une, je suis faignant, et de deux pour la maintenance du code, c'est mieux aussi, accessoirement.

Par avance désolé si c'est dans la Faq, j'ai pas trouvé.
Amicalement.

Run.

Ps: Ha oui, j'ai oublié de dire, j'ai pas envie de me frapper une classe dérivée si c'est possible autrement ;o

[Interruption13h]

Salut !

Tu pourrai mettre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
 
TRichEdit* NouveauRichEdit=new TRichEdit(this);
NouveauRichEdit->Parent=Form1;
NouveauRichEdit->Top=X;
NouveauRichEdit->Left=Y;
NouveauRichEdit->Text=RichEdit1->Text;
NouveauRichEdit->Font=RichEdit1->Font;
NouveauRichEdit->Width=RichEdit1->Width;
NouveauRichEdit->Height=RichEdit1->Height;
 
//etc...

++

[Runlevel]

Salut Interruption13h !

Ouais, c'est clair, mais c'est justement ce que je voudrais éviter ;o
C'est que j'ai un poil dans la main, et peur aussi de zapper des propriétés :]
Mais bon, si y a pas d'autre moyen, on va faire comme ça.

J'attends la fin de la soirée si jamais quelqu'un sait si c'est possible ou non, histoire d'être fixé une fois pour toute.

Merci pour ta réponse en tout cas.

[pottiez]

D'après ce que j'ai pus voir dans l'aide, cela n'est absolument pas possible, il y aurai qu'un seul constructeur avec pour paramètre le composant parent de celui que l'on déclare donc impossible de recopier les propriétées d'un composant semblable, il prendrait ce composant semblable pour sont parent, ce qui n'est pas du tout le but recherché, je sais pas si tu as tout suivit mais le raisonnement est bon , enfin d'après moi en tout cas .

[neilbgr]

Avec RTTI ça doit être possible :
Le principe :

• On Créé un Flux genre TMemoryStream
• Avec le Flux on fait WriteComponent(LeRichEdit);
• On remet la position du Flux à 0
• On recupère une nouvelle instance avec la méthode ReadComponent() du Flux ( NouveauRichEdit = ReadComponent(NouvelleInstanceDeRichEditALaVolée) )

Je ne donne pas de code, car je ne parle que Delphi, et je risque de me faire

[Ricky81]

Je ne donne pas de code, car je ne parle que Delphi, et je risque de me faire

Ce serais l'occasion de t'y mettre

[neilbgr]

Aller... après un effort surhumain, j'ai pondu ceci qui doit être vérifier par un quelqu'un qui maitrise un peu C++Builder car je suis bien partit de mon code Delphi qui fonctionne.
Voici le code c++ avec en commentaire l'original en Delphi... Encore désolé de blasfémer sur ce forum en parlant Pascal, mais pour moi, l'aide à autrui va par-delà les clivages de langages...

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
/*
function TForm1.Cloner(UnComponent: TComponent): TComponent;
var
  vFlux: TMemoryStream;
  vName: string;
begin
  vFlux := TMemoryStream.Create;
  try
    vName := UnComponent.Name;
    UnComponent.Name := '';
    vFlux.WriteComponent(UnComponent);
    UnComponent.Name := vName;
 
    vFlux.Position := 0;
 
    Result := TComponentClass(UnComponent.ClassType).Create(UnComponent.Owner);
    if Result is TControl then
      TControl(Result).Parent := TControl(UnComponent).Parent;
 
    vFlux.ReadComponent(Result);
  finally
    vFlux.Free;
  end;
end;
*/
/*Fonction de clonage pour n'importe quel TComponent :*/
TComponent __fastcall TForm1::Cloner(TComponent *UnComponent){
 
  TMemoryStream *vFlux = new TMemoryStream;
  //try
    AnsiString vName = UnComponent->Name;
    UnComponent->Name = "";
    vFlux->WriteComponent(UnComponent);
    UnComponent->Name = vName;
 
    vFlux->Position = 0;
 
    /* Ici je ne suis pas sûr de la syntax du cast */
    TComponent Result := new static_cast<TComponentClass *>(UnComponent->ClassType)(UnComponent->Owner);
    if (Result->InheritsFrom(TControl)) {
      static_cast<TControl *>(Result)->Parent = static_cast<TControl *>(UnComponent)->Parent;
    }
 
    vFlux->ReadComponent(Result);
 
    //delete(vFlux); // Ici si pas de try..finally
    return Result;
  //finally
  delete(vFlux);
  //end;
 
  return NULL;
}
 
/*
procedure TForm1.btn1Click(Sender: TObject);
var
  vNouveauRichEdit: TRichEdit;
begin
  vNouveauRichEdit := TRichEdit(Cloner(RichEdit1));
  vNouveauRichEdit.Left := vNouveauRichEdit.Left + 10;
  vNouveauRichEdit.Top := vNouveauRichEdit.Top + 10;
end;
*/
void __fastcall TForm1::btn1Click(Sender: TObject) {
  TRichEdit vNouveauRichEdit* := static_cast<TRichEdit *>(Cloner(RichEdit1));
  vNouveauRichEdit->Left = vNouveauRichEdit->Left + 10;
  vNouveauRichEdit->Top = vNouveauRichEdit->Top + 10;
}

Evidement, c'est à mettre dans un .cpp et qu'il faut délcarer dans le .h les prototypes...

[CGi]

Tu peut peut être faire une methode qui fait la copie
que tu appelle pour chaque RichEdit
Par 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
16
17
18
19
20
21
22
 
void __fastcall TForm1::Duplicate(TRichEdit* Src, TRichEdit* Dest)
{
     Dest->Font = Src->Font;
     Dest->Width = Src->Width;
     Dest->Height = Src->Height;
     Dest->Text = Src->Text;
     Dest->Parent = Src->Parent;
}
//-----------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
     TRichEdit *MonRichEdit1 = new TRichEdit(this);
     MonRichEdit1->Top = 10;
     MonRichEdit1->Left = 10;
     Duplicate(RichEdit1, MonRichEdit1);
 
     TRichEdit *MonRichEdit2 = new TRichEdit(this);
     MonRichEdit2->Top = 10;
     MonRichEdit2->Left = 250;
     Duplicate(RichEdit1, MonRichEdit2);
}

[Neilos]

Pour du clonage de composant...je n'avais pas réussi à le faire en C++ Builder...une histoire de différence de gestion des metaclasses entre C++ et Delphi (je crois qu'en Delphi une métaclass est aussi une classe).

Par contre l'avantage de C++ Builder c'est qu'il comprend aussi le Pascal Objet.

Donc j'ai pris une fonction trouvée sur le net en Delphi et ajouté à mon projet et hop ça a marché...
Comme quoi le Delphi parfois ça sert vraiment

[Runlevel]

Bonjour et merci à tous pour vos réponses

pottiez a écrit:
D'après ce que j'ai pus voir dans l'aide, cela n'est absolument pas possible, il y aurai qu'un seul constructeur avec pour paramètre le composant parent de celui que l'on déclare donc impossible de recopier les propriétées d'un composant semblable, il prendrait ce composant semblable pour sont parent, ce qui n'est pas du tout le but recherché, je sais pas si tu as tout suivit mais le raisonnement est bon , enfin d'après moi en tout cas .

J'ai parfaitement suivi ton raisonnement pottiez, et vu que j'ai eu le même, si si il doit forcément être bon ^^ Bon, trève de plaisanterie.

CGI a écrit:
Tu peut peut être faire une methode qui fait la copie
que tu appelle pour chaque RichEdit

Salut CGI. Effectivement, c'est une solution envisageable, applicable seulement à un composant précis, mais c'est quand même mieux que rien.

Et bonjour à toi neilbgr. Merci pour le bout de code que tu as passé. Je savais pas qu'on pouvait "injecter" puis "récupérer" un composant dans un flux stream en Delphi, c'est assez joli dans l'idée. En même temps, je connais pas du tout le Delphi ^^
J'vais essayer de mettre en pratique ton code ce soir (Cette nuit ?)
Si jamais ça ne fonctionne pas, et bien je me rabattrai sur la création d'une méthode standard, comme CGI l'a si bien dit.

Neilos a écrit:
Comme quoi le Delphi parfois ça sert vraiment

Huhu, salut Neilos. Personne n'en doute hein :] Bon et bien je saurai vers quoi me tourner si jamais j'veux m'acharner à trouver une méthode qui marche pour tous les composants.
Merci à vous tous, et à plus tard.