Discussion :

[sp2308]

Bonjour

J ai une appli mdi avec une form enfant (form3)... le clic sur un bouton affiche une form2 en showmodal (elle est cree avec le main et visible=false)

J aimerais au clic sur cette form2, pouvoir modifier tous les edits dont le nom est ed_erase_line de toutes les form3 crees. Cet evenement me permettant (onchange) d'acceder à la procedure desiree

j ai bien tenté ça mais ça ne produit aucun resultat...enfin pas celui souhaité...

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
 for I := 0 to MdiChildCount - 1 do
    begin
      if MDIChildren[I] is tform3 then
      begin
        with MaForm as tform3 do
        begin
          for J := 0 to MaForm.ComponentCount - 1 do
          begin
            if MaForm.Components[J] is TEdit then
            begin
              with MyEdit as TEdit do
              begin
                if MyEdit.Name = 'ed_erase_line' then
                  MyEdit.Text := '33';
              end;
            end;
          end;
        end;
      end;
    end;

l'ideal serait bien entendu que j'accede directement à la procedure erase_line(no_line) de toutes les forms3 crees...

un peu d aide serait bienvenue....
merci

stephane

[SergioMaster]

Bonjour,

il me semble que le problème dans ton code est que tu n'utilises pas les formes 'pointées" par MDIChildren ou alors il manque une ligne dans ton 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
19
20
21
22
23
24
25
26
// MaForm : Tform3; ?
// myEdit : TEdit;

 for I := 0 to MdiChildCount - 1 do
    begin
      if MDIChildren[I] is tform3 then
      begin
        MaForm:=MDIChildren[I] as Tform3;
        with MaForm as tform3 do // le with me semble de trop
        begin
          for J := 0 to MaForm.ComponentCount - 1 do
          begin
            if MaForm.Components[J] is TEdit then
            begin
              MyEdit:=MaForm.Components[J]; 
              with MyEdit as TEdit do  // idem with en trop
              begin
                if MyEdit.Name = 'ed_erase_line' then
                  MyEdit.Text := '33';
              end;
            end;
          end;
        end;
      end;
    end;

autre remarque , il est un peu 'bête' de faire une recherche sur tous les composants de la forme alors qu'on en cherche qu'un dont on connait le nom , donc , plutôt qu'une boucle sur les composants de MaForme

Code :

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

1
2
MyEdit:=TEdit(MaForm.FindComponent('Edit1'));
  If MyEdit<>Nil then MyEdit.Text:='33';

on pourrait donc peut être compacter tout ça ?

Code :

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

1
2
3
4
5
6
7
8
9
 
for I := 0 to MdiChildCount - 1 do
    begin
      if MDIChildren[I] is tform3 then   
      begin 
         TEdit(MDIChildren[i].FindComponent('Edit1'));
  If MyEdit<>Nil then MyEdit.Text:='33';
      end;
    end;

l'ideal serait bien entendu que j'accede directement à la procedure erase_line(no_line)

sans Delphi sous la main pour tester , je pense que le principe restera le même

Code :

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

1
2
3
4
5
6
7
8
 
for I := 0 to MdiChildCount - 1 do
    begin
      if MDIChildren[I] is tform3 then   
      begin 
         MDIChildren[i].erase_line(33); // le problème étant le no_line 
      end;
    end;

[sp2308]

Merci

Le pb venait aussi du fait que je comptais les fenetres filles dans une autre fenetre que la mere...donc j avais toujours 0,pourtant elles avaient été crees par create(application)...je pensais qu'elles etaient accessible partout.

au clic sur mon bouton dans la fenetre cree :

Code :

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

form1.RazGrids;

et, dans le mainform:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.RazGrids;
var
  I: integer;
  MaForm: tform3;
begin
  for I := 0 to MdiChildCount - 1 do
    if MDIChildren[I] is tform3 then
    begin
      MaForm := MDIChildren[I] as tform3;
      MaForm.erase_line(33);
    end;

effectivement les with sont en trop...

Merci

Je mets resolu mais une petite question malgré tout:
Est il possible de boucler sur les MdiChild depuis une autre form que le main ?
J entends par autre form une fille ou une fenetre non child ?

[SergioMaster]

Je mets resolu mais une petite question malgré tout:
Est il possible de boucler sur les MdiChild depuis une autre form que le main ?
J entends par autre form une fille ou une fenetre non child ?

ben oui , il suffit d'indiquer la form "parente"

MainForm.MdiChildCount;
MainForm.MDIChildren[i];

[sp2308]

Merci.
Je savais avec les forms Child, mais je n imaginais pas que cela etait possible avec les autres forms (pas mdi)...