Discussion :

[prat038]

Bonjour,

Je voulais savoir s'il était possible de tester une form avec la propritété formstyle à fsmdichild.

J'ai fait différents essais, mais j'ai toujours un message comme quoi je n'ai pas de fenêtre active. Alors que j'ai bien créer une form mère auparavant.

Merci de vos solutions de contournement

[ShaiLeTroll]

Tester les fenêtres avec DUnit, c'est ce qu'il y a de plus chiant, ... sinon sans le code d'instanciation, pas évident de te dire ton problème !

[prat038]

Bonjour

Pour les tests, je crée un form de test, puis je crée la form à tester. Cette dernière à sa propriété formstyle à fsMDIChild définie dans l'inspecteur d'objet

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TFormTest.SetUp;
begin
  inherited;
  MainFormForTest := TForm.Create(nil);
  MainFormForTest.FormStyle := fsMDIForm;
  FormToTest := TFormToTest.create(MainformForTest);
  FormToTest.FormStyle := fsMDIChild;
end;

Dans la procedure de test, la form est affichée. Mais là j'ai un message indiquant qu'il n'y a pas de form mère active.

J'ai fait des essais en affichant Mainform avant. Mais rien à faire.

[ShaiLeTroll]

Mais, tu as TFormTest qui est la véritable Application.MainForm, et qui n'est pas en fsMDIForm et lorsque tu crées MainFormForTest qui est en fsMDIForm mais ne seras jamais Application.MainForm, je pense que Delphi ne comprend ce que tu veux faire et le refuse ...

Tu devrais modifier TFormTest et la passer en fsMDIForm, si c'est possible ...

Sinon, tu sembles avoir deux projets, l'un pour la vraie appli et l'autre pour le test, pour faire du DUnit en D7, tu peux très bien inclure le lancement de Test dans la vraie application (une directive de compilation si tu veux pour la vraie version déployée)

[prat038]

Je vais faire l'essai et je te tiens au courant.
Merci

[prat038]

J'ai essayé de faire comme l'application elle-même :
. création de la main form de l'application
. création de la fenetre mdichild

Mais c'est pareil. Le message "aucune fenetre mdi active".

Le plus simple serait de pouvoir modifier la propriété formstyle de la form à tester. Mais je ne vois pas comment.
J'ai essayé de la modifier avant création mais ça ne marche pas.
J'ai également essayé de dériver la form à tester et de mettre la propriété formstle à fsnormal. Mais ça plante également.

[ShaiLeTroll]

Tu as bien mis fsMDIForm dans le FormStyle de la MainForm ?

Sinon, que veux tu tester dans cette fenêtre, tu peux tenter de le tester peut-être en dehors ?

[prat038]

Oui, la form est bien en mdiform, et puis j'a également fait un essai avec la form principal de l'application.

Tester en dehors, ça ma semble difficile, je veux vérifier le bon fonctionnement de la form et de ses évènement.

Je vais continuer à chercher.
Merci