Comment annuler la transparence d'une Form ?

Bonjour,

j'ai lu le tutoriel suivant sur la possibilité de faire des trou dans une fenetre :

http://zewaren.developpez.com/delphi/regions/

il y a une chose que je n'ai pas comprise, c'est comment on peut annuler la transparence (ou les régions qu'on a créé) ?

Merci d'avance

PS : je n'ai rien trouvé sur le net qui répond à ma question.

Bonjour et bienvenue sur les forums de Developpez.com .
Tout dépend, si tu crées ta région en utilisant CombineRgn(), tu peux justement réutiliser la même fonction avec le flag inverse pour recréer ton "trou", exemple:
pour faire le trou

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

procedure TForm1.FormCreate(Sender: TObject); var R1, R2 : HRGN; begin R1 := CreateRectRgn(10,30,300,100); R2 := CreateRectRgn(0,0,width, height); CombineRgn(R1, R1, R2, RGN_XOR); SetWindowRgn(handle, R1, true); DeleteObject(R1); DeleteObject(R2); end;

---

et pour boucher le trou

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

procedure TForm1.FormCreate(Sender: TObject); var R1, R2 : HRGN; begin R1 := CreateRectRgn(10,30,300,100); R2 := CreateRectRgn(0,0,width, height); CombineRgn(R1, R1, R2, RGN_OR); // RGN_OR est l'inverse de RGN_XOR SetWindowRgn(handle, R1, true); DeleteObject(R1); DeleteObject(R2); end;

---

Ok merci, ça marche.

Oublie pas le tag :resolu: (tout en bas à gauche)