Discussion :

[zohra051]

Bonjour à tous,

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



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

[SergioMaster]

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 ...

[gbegreg]

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).

[Andnotor]

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 :

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

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 :

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

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 :

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

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.