Discussion :

[Bruno13]

Bonjour à tous,

Voilà je pense avoir un problème au niveau de la fonction Open de mon programme. Quand j'ouvre un de mes projets, j'ai parfois un message d'erreur m'indiquant :

"Erreur lors de la lecture de tcBottom.Tab.Strings: Impossible de creer la fiche. Aucune fiche Non MDI active."

Mais voilà sur mon ordi cela ne m'arrive qu'une fois sur 100 !! et chez certaines personnes (des clients) ils ont le message à chaque ouverture d'un projet et d'autres pas une fois depuis qu'ils utilisent le logiciel ?!?

Vous imaginez tres bien que ce bug est un vrai casse-tête pour moi !!

Voici mon bout de code pour l'ouverture de la fiche Child :

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
27
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
          // Ce Load charge toutes les données du projet
          Load(SR.Files[i]);
          // Là je fais une sauvegarde du projet.
          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 *}

D'avance merci pour votre aide,
Bruno

[Clorish]

Moi j'en reviejs toujours au meme point : Pourquoi utiliser les MDI la ou une simple Form les remplace convenablement dans 90% des cas ....
D'autant que MDI n'ets plus supporté depuis au moins D6, si mes souvenirs sont bons

[Jipété]

cela ne m'arrive qu'une fois sur 100 !

C'est une fois de trop,

Il y a une logique à ce défaut, cherche avec le pas-à-pas, ou du côté des paths et nom de fichiers, qu'à mon humble avis tu dois avoir ton z à zéro (pourquoi ?), et du coup pas de fiche MDI créée et planton...
--
jp

[Bruno13]

Salut Clorish et JPT,

Pour l'histoire des MDI hélas je reprend un soft qui a plus de 4 ans.

Apres pour l'histoire du Z qui est vide, il faut que je creuse cela.

Question : Est-ce que cela peut provenir du fait que dans mon Load j'ai des affectations de texte à certains composants contenu dans la fiche Child.?

D'avance merci

[Clorish]

[QUOTE=Bruno13;2579071]
Pour l'histoire des MDI hélas je reprend un soft qui a plus de 4 ans.[quote]
Raison de plus pour en profiter de le faire evoluer ^^

Question : Est-ce que cela peut provenir du fait que dans mon Load j'ai des affectations de texte à certains composants contenu dans la fiche Child.?

C'est fort possible.
Pourquoi ne pas creer un gestionaire "OnCreate" generique pour toutes les fiches et y placer le code de chargement ?
Tu peux detecter qui est creer (pour charger Fiche[i]) via le sender ou un tag que tu auras placé precedement.

[Bruno13]

Yop,

ça m'interesse cette methode dans le OnCreate, par contre un petite aide de ce que je dois faire serait la bienvenue.

Pour le passage MDI->SDI, hélas pas trop le temps hélas de refaire tout.

Amitiés

[Clorish]

Pour la gestion des gestionnaires c'est tres simple. Il suffit de declarer dans la section private (ou public) une procedure de type Tnotifyevent :

Code :

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

procedure ChildMDICreate(Sender : TObject);

telle que l'aurait fait delphi.

Ensuite on, affecte cette methode a toutes les fenetres :

Code :

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

Child.OnCreate := Self.ChildMDICreate;

On implemente cette fonction en y placant le code que tu souhaite effectuer en agisant sur TChild(Sender)