Version imprimable
Bonjour,
J’ai un phénomène que je ne m’explique pas, sur un exemple simple utilisant la VCL, quand je déplace la fenêtre principale sur mon bureau, seul un cadre représentant sa taille suit la souris, une fois relâché, ma fenêtre réapparaît bien !
J’ai fait une bêtise quelque part pour avoir perdu l’affichage de ma fenêtre lors de son déplacement ?
Merci d’avance pour vos retours.
Bonjour,
Je crois que c'est plus une option de Windows que de Delphi.
Dans la zone de recherche de la barre des tâches, saisir "Régler l'apparence et les performances de Windows". L'utilitaire "Options de performances" s'ouvre. Sur le premier onglet "Effets visuels", il faut cocher la case "Afficher le contenu des fenêtres pendant leur déplacement".
La case est bien coché, et le phénomène ne se produit que sur ce code Delphi, les autres programmes affiche bien le fenêtre pendant leurs déplacements, d’où ma question ;)
DragKind est dkDrag ?
Car le mode avec un carré simple ça ressemble dkDrop
Tu as aussi des SetWindowLong, je n'ai plus en tête les valeurs qui changent la façon dont est représenté un contrôle en mouvement
Oui, DragKind est bien à dkDrop ?
J’ai besoin de dkDrop, donc, c’est mort ?
Oui car ce n'est pas le même fonctionnement
TDragKind
dkDrag c'est pour faire un Drag and Drop , c'est plutôt pour associer un objet à un autre de façon métier
dkDock c'est pour faire un Drag and Dock, c'est plutôt pour ancrer
dkDock et non dkDrop d'ailleurs
Et j'ai retrouvé, avant l'ajout du TSplitter, un TPanel avec un OnMouseDown et un PostMessage WM_NCLBUTTONUP permettait de créer un Splitter avec le même effet de cadre !
D'ailleurs le TSplitter ayant des effets de bord sur la Zone cliente MDI, la même astuce permettait d'avoir des panneaux autour de la zone cliente MDI qui soit redimensionnable
Et si je remet le paramètre à dkDrag, il existe un bout de code qui permettrait de faire du docking à l’intérieur dans mes TPageControl ?
Pour le docking, j'ai écrit ça https://serge-girard.developpez.com/...Docking/#LII-B
Merci, en analysant, ta version pour TPageControl, j’ai trouvé la solution :applo: