Bonjour,
La question est dans le titre :
Ma procédure qui crée mes TabSheet est la suivante
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
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;
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 type TFTab = class(TFrame) Memo1: TMemo; ListBox1: TListBox; Edit1: TEdit;
mais lors de MonMemo.Lines.Add('YAZERFSDFG'); j'ai une erreur de vilation d'accès :s
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'));
Une idée?? Merci d'avance.
Partager