Discussion :

[fthdz]

Bonjour

Mon application est constituer d'une form MDIForm et de plusieurs form MDIChild ainsi que de quelques forms de type normal .l'un des forms MDIChild contient un tableau DBGrid et un button "modifier" qui ouvre une form de type normal qui charge (OnCreateForm) les données d'un enregistrement selectionner dans DBGrid afin de les modifier.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure Tfrmodif.FormCreate(Sender: TObject);
begin
 
Edit1.Text:=Form2.TA1.fieldbyName('codecli').asstring;
Edit2.Text:=Form2.TA1.fieldbyName('nom').asstring;
 Edit3.Text:=Form2.TA1.fieldbyName('prenom').asstring;
Edit4.Text:=Form2.TA1.fieldbyName('adresse').asstring;
Edit5.Text:=Form2.TA1.fieldbyName('ville').asstring;
 
Maskedit1.Text:=Form2.TA1.fieldbyName('tel').asstring;
 
 
end;

au debut ,ca marche bien
mais depuis que j modifier le code d'ouverture des form MDIChild afin d'avoir qu'une seule instance (code trouvé ici dans le forum):

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
procedure TForm1.OuvertureFiche(Class_Fiche: TFormClass);
var
  Num_Fiche : integer;
  trouve_Fiche : Boolean;
begin
  trouve_Fiche := false;
  Num_Fiche    := 0;
  while (Not trouve_Fiche) and (Num_Fiche<Screen.FormCount) do
  begin
    if (Screen.Forms[Num_Fiche] is Class_Fiche) then
    begin
       if Not (csDestroying in Screen.Forms[Num_Fiche].ComponentState) then
        Screen.Forms[Num_Fiche].Show;
        trouve_Fiche := true;
        break; 
    end;
    Inc(Num_Fiche);
  end;
 
  if Not trouve_Fiche then
    with Class_Fiche.Create(Self) do
       show;
end;

lorsque je clic sur "modifier" une erreur " violation d'accée..." se produit!! .

merci d'avance

[macumba]

De quelle manière appelles-tu ta fenêtre modale?
Tu essaies de la recréer à chaque fois ou pas?

Si c'est le cas vérifie que tu es bien codé :

Code :

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

Action := cafree;

dans le formclose.

[markk]

Salut,
La Form2 est une variable globale?
Ici je pense que le problème vient de là car tu créé ta fiche MDI dynamiquement mais ta fiche modale essaye d'y acceder par une variable globale.
Il faut éviter les variables globales surtout en MDI.
Une solution serait le code de la procédure

procedure Tfrmodif.FormCreate(Sender: TObject);

dans une méthode de ta fiche MDI, c'est à dire à l'endroit ou tu appel le showmodal car comme cela tu pourra réutiliser ta fiche modale avec une autre fiche MDI.

exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm2.Modifier();
var Fichemodif : Tfrmodif;
begin
  Fichemodi := TfrModil.create(self);
  try  
    FicheModif.Edit1.Text := TA1.fieldbyName('codecli').asstring;
    FicheModif.Edit2.Text := TA1.fieldbyName('nom').asstring;
    //........
    FicheModif.ShowModal;
  finally
    FreeAndNil (FicheModif)
  end;
end;

Comme cela tu peux supprimer tes variables globales Form2 et frmodif car instanciées dynamiquement.
Un denier petit conseil renome tes noms de composants : EVITE LES "Form2" "Edit1" Edit2".....


Voila je pense que comme cela ca doit fonctionner, sinon le problème vient d'ailleur.

A+ et n'hesite pas

[fthdz]

merciiiiiiiiii markk pour votre code ainsi vos conseils
votre code ça marche tres bien il m a permet aussi de comprendre le comportement des applications MDI.
je remercie aussi macumba l'homme active de forum.