[ DEBUTANT ] : Voile effet transparent

Bonjour à tous,

Je voudrais faire une effet voile un peut transparent.
Je m'explique.

Pièce jointe 591906

Comme le montre la photo, je possède un menu. (Désolé c'est le seul exemple que j'ai trouvé)


Lorsque je clic sur le menu, les autres parties possèdent un voile transparent permettant de bloquer leur fonctionnalités.
Comment puis-je faire ce voile ?

Merci à tous

Version de Delphi ?
Type de programme VCL ou FMX ?

FMX, j'écrirais d'utiliser un panel avec un opacité de 0.7 voir moins aligné alcontent, en premier plan et de le rendre visible à l'ouverture du menu et invisible à sa fermeture
VCL, plus ou moins le même principe mais la transparence :koi: ...

Bonsoir,

Il y a déjà des composants pour faire cela mais ils sont différents en fonction du framework utilisé (VCL ou FMX).

Sous FMX, c'est le composant TMultiView (il y a un exemple dans les démos fournies avec Delphi nommé MultiViewDemo), avec la VCL c'est le TSplitView (il y a également une démo fournie). Dans les deux cas, ces composants permettent d'avoir un menu coulissant sur le côté (droite ou gauche). Par contre, l'utilisation de ces composants est différente :

- sous FMX le composant peut être associé directement à un bouton (pour réaliser un menu hamburger par exemple) et il gère déjà le "voile transparent" sur le reste de l'interface.
- sous la VCL, il faudra gérer l'ouverture/fermeture du menu via un clic sur un bouton par exemple et dans les événements OnClosing et OnOpening gérer l'accès aux éléments (propriété enabled des composants). Pour la transparence, je ne sais pas, ça demanderait un peu réflexion, mais déjà le fait de jouer sur la propriété enabled des composants doit se remarquer (les composants apparaissant grisés ou non).

VCL
Jusqu'à Seven la transparence n'était possible que sur les fenêtres de premier niveau (les fiches) mais depuis Windows 8 elle est également supportée par les fenêtres enfants (tous les composants dérivant de TWinControl).

Pour un panel, ça donnerait ceci pour une opacité de 60% :

Code:

---

1 2	SetWindowLongPtr(Panel1.Handle, GWL_EXSTYLE, GetWindowLongPtr(Panel1.Handle, GWL_EXSTYLE) or WS_EX_LAYERED); SetLayeredWindowAttributes(Panel1.Handle, 0, 155, LWA_ALPHA);

---

On peut ajouter cela à un assistant de classe et pendant qu'on y est traiter la transparence par couleur :

Code:

---

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

type TWinControlHelper = class helper for TWinControl procedure SetOpacity(aOpacity :byte; aTransparentColor :TColor = clNone); end;   uses System.Math;   procedure TWinControlHelper.SetOpacity(aOpacity: byte; aTransparentColor :TColor); begin var ExStyle := GetWindowLongPtr(Handle, GWL_EXSTYLE); var Flags := IfThen(aOpacity < High(aOpacity), LWA_ALPHA) or IfThen(aTransparentColor <> clNone, LWA_COLORKEY);   if Flags <> 0 then begin SetWindowLongPtr(Handle, GWL_EXSTYLE, ExStyle or WS_EX_LAYERED); SetLayeredWindowAttributes(Handle, aTransparentColor, aOpacity, Flags); end else SetWindowLongPtr(Handle, GWL_EXSTYLE, ExStyle and not WS_EX_LAYERED) end;

---

Et ainsi :

Code:

---

1 2 3

Panel1.SetOpacity(150, clBlack); Edit1.SetOpacity(100); StringGrid1.SetOpacity(200);

---

A noter que SetOpacity(0) serait identique à Visible := FALSE et que appeler cette méthode sur la fiche reviendrait à jouer avec les propriétés AlphaBlend/AlphaBlendValue.