Salut
mes amis j'ai un problème avec TabbedNotebook:
j'ai créer une application qui fait des traitements sur un texte (Tsynmemo) alors j'ai préférai d'utiliser un TabbedNotebook au on créer dynamiquement des Tsynmemos suivant le choix de l'utilisateur jusqu'a mtn tous marche très bien mais le problème est lorsque je veux faire le traitement.

le traitement ne fais que sur  le premier Tsynmemo .
Je pence il faut sélectionner le Tsynmemo parant.

Comment faire pour ma fonction traite le Tsynmemo afichier.

Merci

{

une portion de code source pour la création d'un anglet

}

procedure TForm1.Ovrire1Click(Sender: TObject);
var
i: integer;
SynMemo : TSynMemo;
TabPage : TTabPage;
 //Non documenté dans l'aide de Delphi
begin
//---------------------------------------------------------------------------------//
//-- -----------------------------Ovrire un fichier --------------------------------//
if opendialog1.Execute then
     begin
        ifnot (Uppercase(ExtractFileExt(opendialog1.FileName)) = '.SAL') thenexit;
//---------------------------------------------------------------------------------//
with TabbedNoteBook1 do
begin
//La page créée devient la page courante
PageIndex := Pages.Add(opendialog1.FileName);
TabPage := TTabPage(Pages.Objects[PageIndex]);
synMemo := TSynMemo.Create(Self);
synMemo.Highlighter:=SynUsthbNewCppSyn1;
synMemo.ActiveLineColor:=clAqua;
synMemo.RightEdgeColor:=clRed;
synMemo.Parent := TabPage;
synMemo.Align := alClient;
end;      
      end;

Si j'ai bien compris la question , la réponse est simple :
comme la fiche Form1 est propriétéaire de tous les composants TSynMemo, fais une boucle parcourant les composants de cette fiche. Si, dans cette boucle, le composant est du type TSynMemo, alors tu appliques le traitement.

exemple classique et basique :
Dans la portée de la fiche :
for i := 0 to ComponentCount - 1 do
    if Components[i] is TSynMemo then
        TSynMemo(Components[i]).LaMéthodeAAppeler;


May Delphi be with you !

---

Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.

Salut
merci pour votre réponse, vous avez approché de la réponse mais...
Je  ré explique:

Mon programme c'est un mini compilateur(il sera publier par la suite dans le site) l'utilisateur a le droit de créer ou importer des fichiers on met le contenu de chaque fichier a l'aide un synmemo dans un anglet indipendant (création dynamique des anglets).
le problème est dans  la fonction analyser ( le traitement ) par se que cette fonction a comme paramètre d'entre STRING (c'est le texte de synmemo) alors je cherche une manière pour ma fonction reçoit le contenu de synmemo qui est dans l'anglet active ou afficher par l'utilisateur .(j'arrive pas faire la différance entre les synmemos qui ont été déjà créer dynamiquement )

le corps de la procédure : procedure TForm1.Analyse_lexical(var chain:string);

l'appel de la procédure:   procedure TForm1.Button1Click(Sender: TObject);
                                             begin
                                                     Analyse_lexical(synmemo.text);

                                             end;

je propose:                       procedure TForm1.Button1Click(Sender: TObject);
                                             var le_texte string;
                                              begin
                                                //le_texte resoit synmemo.text de l'anglet actif
                          le_texte:=??????????;

                                                     Analyse_lexical(synmemo1.text);
                                             end;

remarque: merci de votre suivez.