Editer un mémo dynamiqueRésolu

Question

Bonjour à tous,

Voilà, j'ai un petit problème. Je veux créer un chat sous forme d'onglet. Pour cela, j'ai inséré un objet TPageControl où je vais y mettre mes objets TTabsheet...

Le probème est que je créer mes objets TTabsheet en dynamique, et que un mémo est inséré pour chaque TTabsheet crée dynamiquement...

Maintenant, j'ai mon Edit en dessous du page control où je vais écrire un message et je veux l'envoyer au Mémo de la page active du Pagecontrol...

Et là, je bloque, je sais récupérer la page active du Pagecontrol, mais je ne sais pas atteindre le mémo ...

Please help me :)

Thanks

fbalien · Accepted Answer

Bonjour

Il faut énumérer les objets enfants de la page active du Pagecontrol
Regardez la propriété Controls et ControlsCount de la page active

Cordialement

Momo8910 · Answer

Peux tu m'expliquer comment faire ?

Ou tout du moins, les grandes lignes :)

Merci

fbalien · Answer

// énumération de tous les composant présent sur le Tabsheet
  for i := 0 to TabSheet2.ControlCount -1 do
    // si le composant trouvé est un Tmemo
    if TabSheet2.Controls[i] is TMemo then
    begin
      // on fait pointer la variable vmemo sur le composant trouvé et
      // on l'utilise comme un tmemo
      vmemo := Tmemo(TabSheet2.Controls[i]);
      vmemo.Lines.Add('composant N°' + inttostr(i));
    end;

Momo8910 · Answer

Super sa marche ... J'avais pas pensé à faire pointer une variable sur mon composant !! :p

Merci bcp ... si j'ai d'autres soucis, je peux revenir te voir ?? :p

^^ Merci encore !!

Editer un mémo dynamique

4 réponses

Votre réponse

Discussions similaires