Discussion :

[julesclaude]

Bonjour à tous,
-j'ai crée une frame contenant un masque de saisie (plusieurs edits).
-j'ai crée un page control sans onglet au départ.
A l'exécution je crée dynamiquement des onglets qui contiennent chacune une frame.
voici le code

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 TF_Construction_QCM.B_Nouvelle_QuestionClick(Sender: TObject);
begin
  // ajout d'un onglet
  t := TTabSheet.Create(self);
  t.PageControl := pageControl1;
  t.Caption := 'Q ' + intToStr(pageControl1.PageCount);
  // ajout d'une frame dans l'onglet
  xframe := TMasque_quest_prop.Create(self);
  with xframe do
  begin
    name := 'Q' + intToStr(pageControl1.PageCount);
    align := AlClient;
    parent := t;
    L_Question.Caption := 'Question ' + intToStr(pageControl1.PageCount);
  end;
  // Activation du nouvel onglet
  pageControl1.ActivePage := t;
end;

Lorsque j'essaie de récupérer le texte d'un édit dans une onglet donnée je ne récupère que celui de la dernière frame crée :
Voici le code :

Code :

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

1
2
3
4
5
6
7
8
procedure TF_Construction_QCM.SpeedButton1Click(Sender: TObject);
var i : integer;
begin
for i := 0 to pageControl1.PageCount-1 do
begin
  memo1.Lines.add(xframe.edit1.text);
end;
end;

Au clic sur ce speedbutton j'aimerai récupérer les informations de tous les edit1 sur chaque frame.

Merci de votre aide je travaille avec D7
A bientôt

[skywaukers]

Bonjour,

oui c'est normal puisque XFrame pointe sur le dernier objet créé. Pour faire ce que tu cherche il faudrait faire qque chose du genre :

Code :

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

1
2
3
4
5
6
7
8
procedure TF_Construction_QCM.SpeedButton1Click(Sender: TObject);
var i : integer;
begin
for i := 0 to pageControl1.PageCount-1 do
begin
  memo1.Lines.add( TMasque_quest_prop( findcomponent('Q' + inttostr(i))).Edit1.text);
end;
end;

(je n'ai pas testé le code mais ça devrait pas être loin)

Joyeux Noël
Dany

[julesclaude]

Tout d'abord, merci pour ta réponse.
A la lecture du code que tu me suggères j'ai bien cru tenir la solution. Malheureusement à l'exécution ça plante avec violation d'accès.
Si tu as une suggestion, je suis preneur.

[Cl@udius]

Salut, SkyWaukers ne doit pas être loin de la solution !

Essaye plutot avec cette itération:

Code :

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

1
2
 
  for i := 1 to pageControl1.PageCount do

Je n'ai pas testé non plus !
@+ Claudius

[julesclaude]

Merci les gars, vous êtes géniaux.
Bonnes fêtes de fin d'année !!!