Bonjour à tous,

voilà j'ai ce message qui arrive "de temps en temps" lorsque j'ouvre une fenetre MDI dans mon programme.
J'ai lu le post : http://www.developpez.net/forums/showthread.php?t=14031
mais hélas ce n'est pas tout à fait cela que je veux faire, c'est à dire ouvrir une fenêtre fille directement.

Moi j'ai tout simplement une fiche Mère qui ouvre une fiche Fille, avec entre temps le chargement de données (fonction Load), et la sauvegarde d'un fichier.

J'ai bien les propriétés fsMDIForm pour la Mère et fsMDIChild pour la fille et pourtant j'ai quand même l'erreur.

Le vrai problème pour moi c'est que cette erreur est complétement aléatoire, d'ailleurs je ne l'ai "presque" jamais sur mon ordi (une seule fois en un an), ce sont des clients qui l'ont parfois (régulièrement).

Voici le bout de code pour ouvrir mon projet :

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
PROCEDURE TMain.aOpenExecute( Sender : TObject );
var
  SR: TSelectRequest;
  i: Integer;
  Z: Boolean;
begin
  SR:=TSelectRequest.Create(Self);
  try
    SR.Caption:='Open project...';
    if (SR.ShowModal=mrOk) then
    begin
      Z:=(MDIChildCount=0);
      for i:=0 to SR.Files.Count-1 do
        with TChild.Create(Self) do
        begin
          Application.ProcessMessages;
          Load(SR.Files[i]);
          CopyFile(PChar(FWorkingPath+'requests\'+SR.Files[i]+'\'+'data.mp'), PChar(FWorkingPath+'requests\'+SR.Files[i]+'\'+'data.BAK'), False);
        end;
      if Z then
        ActiveMDIChild.WindowState:=wsMaximized;
    end;
  finally
    SR.Release;
  end;
end; {* PROC .aOpenExecute *}

Si quelqu'un a une idée, je suis preneur.

D'avance merci pour vos conseils,
Amicalement,
Bruno