Discussion :

[SoftAbdou]

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 :

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
 
//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;

Merci

[Graffito]

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éé.

[SoftAbdou]

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)

[SoftAbdou]

Ahem...Ahem

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

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
 
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;