Discussion :

[Invité]

Bonjour,

quelqu'un(e) sait-il comment on fait une TForm au fond transparent dans lequel on ne peut pas clicker à travers ? Pour l'instant, toutes mes tentatives permettent de clicker à travers la fenêtre.

Merci. D'avance. Gilles

[Andnotor]

Un canal alpha à 1 (sur 255). Il faut un minimum d'opacité.

[Invité]

Bonjour,

Tu veux dire AlphaBblendValue =1 et AlphaBlend = true ?
Si tel est le cas, les bordures de la fenêtre n'apparaissent plus or il me faudrait simplement le fond transparent.

[Cirec]

Bonjour,

comme ceci ça fonctionne :

Code :

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

1
2
3
4
  Form1.AlphaBlend := False;
  Form1.Color := clRed;
  Form1.TransparentColor := True;
  Form1.TransparentColorValue := clRed;

Cordialement,
@+

[Invité]

Bonjour Cirec,

j'ai essayé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.FormCreate(Sender: TObject);
begin
with Form1 do
  begin
    FormStyle             := fsStayOnTop;
    AlphaBlend            := False;
    Color                 := clRed;
    TransparentColor      := True;
    TransparentColorValue := clRed;
  end;
end;

Sans succès. Je "traverse" toujours le fond de la Form. Mais peut-être que ce que je cherche à faire est impossible : si Transparent = "vide" c'est à dire "pas de fond dans la fenêtre", il n'y a pas de solution.

[Invité]

En quelque sorte, je crois que c'est le cas :

Adding transparency to a form also means that all areas that are color-keyed will not capture mouse clicks. Those clicks will be directed to whatever is on the screen at this place.

http://edn.embarcadero.com/article/29579

[tourlourou]

Une parade est donc pê de faire un ScreenShot de l'écran et d'afficher en fond de fiche ce qu'il y a en dessous ? Si la fiche ne bouge pas trop et ce qu'il y a en dessous ne change pas trop, ça doit passer...

[Invité]

Merci à tous.

J'ai combiné les méthodes de Cirec et d'AndNotOr. La première pour la Form et la seconde pour le Panel que j'ai placé dessus. Et en plus cela fonctionne sous FMX.

Un grand merci aux 3. Je passe au problème suivant : je dessine à main levée. Je vais rester sous FMX. Le dessin apparaît bien mais quand je quitte le TPanel. J'ouvre une nouvelle discussion.

Justement Toulourou, je ne veux pas de cette méthode.

Cordialement. Gilles

[Cirec]

re,

content que tu ais pu trouver une solution.

le problème doit venir de FMX parce que en VCL pure ça fonctionne parfaitement
et impossible de cliquer sur ce qui se trouve en dessous