Salut a tout le monde,
Alors mon probléme c'est que je n'arive pas a modifier les contenu des memo
créér dynamiquemen!

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 TFormMain.NewTab();
var
  ITab : Integer;
  NewTab : TTabSheet;
begin
  ITab := NbTabs + 1;
  NbTabs := ITab;
  NewTab := TTabSheet.Create(Self);
 
  with TMemo.Create(self) do
  begin
    Name := 'TabMemo' + IntToStr(ITab);
    ScrollBars := ssBoth;
    Align := alClient;
    Parent := NewTab;
 
  end;
 
  NewTab.PageControl := PageCtrl;
  NewTab.Caption := 'Nouveau ' + intToStr(ITab);
  NewTab.Name := 'Nouveau' + intToStr(ITab);
  NewTab.ImageIndex := ITab;
 
  PageCtrl.ActivePage := NewTab;
  INewTab := ITab;
end;
Et quand je veux ajouter un fichier texte au nouveau memo:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TFormMain.BOuvrirClick(Sender: TObject);
var
  Memo : TMemo;
  Path : String;
begin
    If Open.Execute then Path := Open.FileName;
    If (Path <> '') then
    begin
      NewTab();
      Memo := TMemo(FormMain.FindComponent('TabMemo ' +  IntToStr(INewTab)));
      Memo.Lines.LoadFromFile(Path);
    end;
 
end;
Je ne c'est pas comment faire je n'arive méme pas a faire un clear sur les memo!

Aidezzz moi!!
Merci d'avance!