Discussion :

[pascal07]

Bonjour à tous

( sous Delphi 10.2 & windows 10 pro )

sur mon fond de fenêtre MDI, j'affiche la version de mon logiciel, + les 3 derniers fichiers et dossiers utilisés.

Je veux ajouter une TListBox avec les 20 derniers fichiers utilisés.

Problème : Alors que mes TLabels + TImage sont automatiquement masqués à l'exécution, la TListBox ne l'est pas ?

Je sèche...malgré mes recherches sur le net...

à noter qu'un TButton fait pareil...pourquoi les fenêtres filles ne cachent elles pas ces contrôles VCL ?

Voir les 2 PJ de ce post = images de ce problème

Merci - Pascal 07300

[pprem]

MDI/SDI sont là our des raisons de compatibilité ascendante des projets dans Delphi, mais si ça fait appel à des API Windows, peut-être que Microsoft a zappé certains trucs sous Windows 10 par rapport à d'autres composants.

TButton et TListbox sont en effet des éléments provenant de Windows directement, descendants de TWinControl en VCL.

As-tu activé les apparences personnalisées sur le projet ? Utilises-tu un style ou rien de spécifique sur ce projet ?

C'est récent que ça déconne ou tu viens de porter un projet vers Delphi 10.2 Tokyo ?

(suis allé voir ce qui concerne "MDI" sur quality.embarcadero.com, rien ne ressort avec ce problème sur mes recherches rapides)

[ShaiLeTroll]

C'est la différence TWinControl (Handle sur un control réel de Windows) et un TGraphicControl qui dessine sur son Parent

Utilise une TDrawGrid (ou TStringGrid), tu vas devoir dessiné la liste dans son intégralité


Et c'est un comportement normal, tous les TWinControl présents réduisent la région de la zone client ... En D5, suffit de se rappeler comme les TSplitter déconnait (ça doit être encore le cas) pour redimensionner panneaux autour de la zone client et avec des Panel on pouvait reproduire des splitters.


Pour un fond de la zone client

En D5-D7, j'utilise WndProc GWL_WNDPROC
En DXE2, je passe par un TFormStyleHook si il y a un thème VCL actif et par WndProc si style OS
Voir https://www.developpez.net/forums/d1...s/#post7886805

Et je dessine tout dans un Bitmap tampon où tu es présent dans une seule image, ainsi le fond peut être calculé dans un thread, le double-tampon est protégé, cela permet d'avoir un monitoring qui tourne en fond réduisant l'impact sur le CPU du MainThread

[pascal07]

Bonjour,
Non aucun style personnel ou autre.
Je vais tester avec un TStringGrid pour voir...
Sinon, j ai une solution, mettre visible a false des qu’une fenêtre fille est ouverte...

Merci, cordialement, Pascal

[pprem]

Sinon, j ai une solution, mettre visible a false des qu’une fenêtre fille est ouverte...

ça ne devrait pas être nécessaire

si tu peux faire un projet de démo reproduisant le problème, soumets le sur quality.embarcadero.com

[ShaiLeTroll]

C'est pourtant le comportement normal, les TWinControl sont affichés par-dessus dans la zone client .
Il n'y a pas de bug !

D'ailleurs, contrairement à son nom la TDrawGrid est un TWinControl donc il sera aussi une réduction de la zone client.

[Paul TOTH]

la gestion MDI est antique et considère que les enfants de la fiche parent sont des MDIChild...donc c'est assez logique que la gestion des TWinControl soit perturbée. Les TGraphicControl qui n'ont pas de Handle Windows sont dessinés sur le Canvas de leur parent, ici la fiche, donc ils ne peuvent matériellement pas s'afficher par dessus les fiche filles.

Si tu veux conserver cet affichage (car en le masquant tu le perds si aucune fiche mdi n'est au dessus), tu dois gérer l'ordre des fiches, peut-être avec un SendToBack sur ta ListBox histoire qu'elle soit toujours en bas de la pile.

autre approche, tu remplaces ta ListBox par un TPaintBox dans lequel tu prends le temps de faire des Canvas.TextRect() pour afficher tes infos...tu retombes alors sur un TGraphicControl qui ne sortira pas du canvas de son parent.

[pascal07]

Bonjour

1 - je viens de tester , TStringGrid descend aussi de TWinControl, donc même ( mauvais ) comportement.

SendToBack masque définitivement la listbox ( ?? ).
:
2 - j'ai finalement utiliser une procédure d'actualisation a chaque ouverture/fermeture de fenêtre fille ( TChild ) : si MDI.MDIChildCount = 0 alors j'affiche ma TLIstBox, sinon non.

car je ne veux pas refaire une liste box descendant de TGraphicControl....et que j'ai déjà une procédure dans ce cas, pour gérer d'autres choses sur la fenêtre parent MDI :

Code :

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

ListFichier.Visible := MDIChildCount = 0;

ça fonctionne bien, merci pour votre aide, j'ai appris des choses...

Pascal