Problème avec TabbedNotebook

Version imprimable

Salut: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.
Une portion de programme
Code:

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 //Ouvrir un fichier procedure TForm1.Ovrire1Click(Sender: TObject); var i: integer; SynMemo : TSynMemo; TabPage : TTabPage; //Debut begin //---------------------------------------------------------------------------------// //-- -----------------------------Ovrire un fichier --------------------------------// if opendialog1.Execute then begin ifnot (Uppercase(ExtractFileExt(opendialog1.FileName)) = '.SAL') then exit; //---------------------------------------------------------------------------------// 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; end;
:yaisse2:Merci :yaisse2:

25/02/2008, 18h24
Graffito

Citation:

faire le traitement

Quel traitement?

J'ai pas vraiment compris la question, mais pour visionner le TsynMemo créé il faut se positionner sur la Tabpage créé.
25/02/2008, 18h41
SoftAbdou

plus explication

merci pour votre réponse
mon application c'est un mini compilateur l'utilisateur a le droit de créer plusieurs anglets chaque onglet contiens un tsynmemo pour écrire le programme.

mais lorsque l'utilisateur clicque sur analyser le programme analyse se fait sur le tout
simplement la fonction analyser elle fait pas la différence entre la nouvelle onglet et la première (onglet par défaut)

Solution

Ahem...Ahem

J'ai posé une question et je vous donne la réponse:

Code:

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
 
procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
  TabPage: TTabPage;
  i: integer;
begin
  if TabbedNotebook1.Pages.Count < 1 then
    Exit;
 
  { Recherche, parmi les controles dont TabbedNoteBook1 est le parent,
  des TMemo}
  with TabbedNotebook1 do
  begin
    { Recherche de l'onglet actif
    ...noter l'astuce non documentée par Borland }
    TabPage := TTabPage(Pages.Objects[PageIndex]);
 
    for i := 0 to TabPage.ControlCount - 1 do
      if (TabPage.Controls[i] is TsynMemo) then
      begin
        s := TsynMemo(TabPage.Controls[i]).Text;
        //traitement sur s
      end;
  end;
end;