Bonjour,

La question est dans le titre :

Ma procédure qui crée mes TabSheet est la suivante

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
 
procedure CreTab(Chan : String);
var
  tbs : TTabSheet;
begin
  tbs := TTabSheet.Create(nil);
  with TFTab.Create(nil) do
  begin
    // Attention, chaque frame doit avoir un nom différent
    Name := Chan;
    Align := alClient;
    Parent := tbs;
  end;
  // Ajout de la page au TPageControl
  tbs.PageControl := MainForm.ChanControl;
  // Modification du titre de l'onglet
  tbs.Caption := '#'+Chan;
end;
Ma fiche qui est Instancié contient un Mémo1 ect...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
type
  TFTab = class(TFrame)
    Memo1: TMemo;
    ListBox1: TListBox;
    Edit1: TEdit;
J'ai déja essaié de retrouver le mémo de la manière suivante

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
var
 tbs : TTabSheet;
 MonMemo : TMemo;
begin
tbs := TTabSheet(FindComponent('OK'));// 'OK' est le nom d'un de mes TabSheet
MonMemo := TMemo(tbs.FindComponent('Memo1'));
mais lors de MonMemo.Lines.Add('YAZERFSDFG'); j'ai une erreur de vilation d'accès :s

Une idée?? Merci d'avance.