Probléme de gestion de composant dynamique

**6BORG** · 18/08/2006, 17h15

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!

**edam** · 18/08/2006, 17h28

essaye d'enlevé l'espace:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Memo := TMemo(FormMain.FindComponent('TabMemo' +  IntToStr(INewTab)));

**6BORG** · 18/08/2006, 17h34

Merci a toi c'est vrément béte comme erreur!
C'est béte defois télement l'erreur est minime on a beau chercher sans la trouver

Bien merci désolé de poster un truck béte comme sa!
Merci a toi encore pour cette reponse donner rapidement!

A++