Discussion :

[Alpha4]

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.

[EPJSoft]

J'ai testé et en effet cela ne marche pas du tout lol

j'ai essayé avec :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
tbs := TTabSheet.Create(PageControl1);
  tbs.Name := 'TABSHEET1';
  with TFrameOK.Create(tbs) do
  begin
    Name := 'FRAME_OK';
    Align := alClient;
    Parent := tbs;
    tbs.Caption := '#'+Name;
  end;
  // Ajout de la page au TPageControl
  tbs.PageControl := Form1.PageControl1;

et donc

Code :

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

1
2
3
4
5
 
  with TTabSheet(PageControl1.FindComponent('TABSHEET1')) do
    with FindComponent('FRAME_OK') do
      with TMemo(FindComponent('Memo1')) do
        Lines.Add('Bonjour');

[Fabrice ROUXEL 1]

La fiche est( par défaut ->voir Owner) propriétaire des composants TTabsheet et du TMemo.
Il faut tester comme cela:

Code :

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

if Form1.FindComponent('Memo1') <> nil then ...

ou bien

Code :

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

if Assigned(Form1.FindComponent('Memo1')) then ...

Dans ton code ici->

Code :

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

MonMemo := TMemo(tbs.FindComponent('Memo1'));

MonMemo = nil d'où l'erreur ensuite avec

Code :

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

MonMemo.Lines.Add

@+

[EPJSoft]

Fabrice :
J'ai testé ta solution : qui semblait tres simple (trop lol) marche pas...

[Alpha4]

:s malheureusement dans mon cas ça ne marche pas (ou je transpose mal)

Code :

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

1
2
3
4
  with TTabSheet(ChanControl.FindComponent('OK')) do
    with FindComponent('TFTab') do
      with TMemo(FindComponent('Memo1')) do
        Lines.Add('Bonjour');

Toujous l'erreur de violation de mémoire :s (j'ai aussi essaié d'inverser 'OK' et TFTab ... sans succès)

Je ne comprend pas qui est propriétaire de qui dans mon code, qui descent de qui ... (d'ou le problème)

Une proposition?

Remarque : lors de la création de les TabSheet j'ai du modifier la valeur 'Self' par nil car le compilateur m'avertis que Self n'est pas définie ... ( cf http://www.developpez.com/delphi/faq/?page=pagecontrol )

[EPJSoft]

oui mais moi j'ai remplacer nil pas le propriétaire logique

tbs := TTabSheet.Create(nil);
-> TTabSheet.Create(ChanControl); // tbs appartient au pagecontrol
j'ai ajouté
tbs.name =<nom de la tabsheet> sinon dans ton cas elle n'est pas nommée
(j'ai essayé en remplacant findcomponent par une boucle qui me liste le nom de composant pour débugger ton code)

with TFTab.Create(nil) do
-> .Create(tbs) (l'owner de FTab c'est le tabsheet)

et par propreté tu peux mettre un if tmemo(...)<>nil then pour eviter d'avoir une erreur si le memo n'existe pas... bien que pour l'instant cela ne soit pas trop ton problème car il ne trouve déja pas les composants par leur nom
tu peux suivre ma démarche en faisant un
for i:=0 to componentcount - 1 do
showmessage(components[i].name)
pour voir les composants de la fiche et ainsi de suite ...

[EPJSoft]

Self n'est pas déclaré car tu n'est pas dans une procédure de la fenetre
soit tu mets

tbs := TTabSheet.Create(MainForm); cela marche aussi

soit tu integres la procedure dans la form

procedure TMainForm.CreTab(....)
et là tu peux mettre Self

n'oublie pas le tbs.name sinon le premier findcomponent ne trouve rien

et je l'ai testé donc cela marche...

[EPJSoft]

encore moi lol

ta transposition :

Code :

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

1
2
3
4
5
 
with TTabSheet(ChanControl.FindComponent('OK')) do
    with FindComponent('TFTab') do
      with TMemo(FindComponent('Memo1')) do
        Lines.Add('Bonjour');

'OK' c'est tbs.name = 'OK' (que tu n'avais pas défini et pas Chan)
'TFTab' c'est theoriquement ta variable Chan de la procédure

[Alpha4]

Merci de votre aide j'ai trouvé les erreurs.

Je post le code valide si ça peut servir a quelqu'un. (on ne sait jamais si un jour j'ai un trou de mémoire ... )

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
procedure TMainForm.CreTab(Chan : String); // premiere erreur < il faut déclarer la procedure dans TMainForm sinon ChanControl n'est pas reconnu ;) (erreur vraiment grossière de ma part désolé)
var
  tbs : TTabSheet;
begin
  // Création de la page
  tbs := TTabSheet.Create(ChanControl);
  tbs.name := Chan;
  // Création du contenu de la page
  with TFTab.Create(tbs) 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;

Pour l'appel des éléments :

Code :

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

1
2
3
4
5
 with TTabSheet(ChanControl.FindComponent('OK')) do //Nom du TabSheet
    with FindComponent('OK') do //Nom De la fiche 
      with TMemo(FindComponent('Memo1')) do
       Lines.Add('Bonjour');
   end;

Remarque : C'est surement pas malin d'avoir apelé par le même nom 2 objets différents ...

Merci de votre aide