Rémanence affichage Form Showmodal

Bonjour,
Le Button d'une Form1 ouvre ainsi une Form2

Code:

---

1 2 3 4 5 6 7

TForm2.bt1Click(Sender: TObject); begin if not Assigned(Form2) then Application.CreateForm(TForm2, Form2); Form2.Showmodal; if not Form2.bEnvoi then exit; [...]

---

La Form2 est fermée par un simple Close (dans son propre code).

Sous Windows 7 (et pas sur tous les appareils), une fois ce code exécuté, il reste une "trace résiduelle" de Form2 à l'écran : une partie de la Form2 reste dessinée en avant-plan dans Form1 souvent d'ailleurs dans un autre élément de Form1 (une StringGrid par exemple).

J'ai pensé un instant que pour une raison mystérieuse, c'était le if not Form2.bEnvoi qui pouvait en être la cause. Mais une fois enlevé ce code, cela ne change rien.

Bref, pourquoi cette rémanence (aucun calcul lourd dans la Form2, pas de connexion à une BDD et pas de chargement d'images) ? Et comment l'éviter "systématiquement" ?

Merci. Cordialement.
Gilles

Bonjour

Le problème est le même si tu crée la fiche TForm2 lors du lancement de l'application ?

Ajouter le code suivant après la fermeture de la form2 ?

Code:

---

Invalidate;Repaint;

---

Bonjour,

Il s'agissait en réalité d'une "interaction" dans une séquence de la StringGrid suivant l'appel à Form2...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Form2.Showmodal; if Form2.bEnvoi = False then exit; //Traitement à partir de la valeur retournée with StringGrid1 do begin BeginUpdate(); RowCount := 1; with Query1 do begin [...] try Open; if isEmpty then begin Close; MessageDlg(...'Pas d''historique'...) //--> Un bout de Form2 apparaît ds StringGrid1 (de Form1 où figure ce code); else begin [...] Close; end; except Close; MessageDlg(... 'Historique inaccessible'...) end; end; { with Query1} EndUpdate(True); end; {with StringGrid1}

---

L'emploi (ie le déclenchement) d'un MessageDlg dans une séquence StringGrid.BeginUpate/EndUpdate provoque, dans mon cas, une "rémanence" d'un morceau de la Form2 dans le Form1.StringGrid1 sur XP et sous Seven à l'issue de l'affichage du message. Compte tenu de la solution, le terme de rémanence est donc techniquement mal choisi même si l'effet visuel y ressemble.

J'ai placé les MessageDlg en dehors de la séquence StringGrid.BeginUpate/EndUpdate (ie après le StringGrid.EndUpdate) et les effets de rémanence ont disparu.

@Patrick : oui cela ne change rien.
@CapJack : l'ajout du code proposé aggrave la situation chez moi. Même sans déclenchement de MessageDlg (ie lorsque le Query n'est pas vide), l'effet de rémanence apparaît.

Merci à tous deux pour votre aide.
Cordialement. Gilles