Transparență în Delphi, club pentru programatori

În Delphi 6, dezvoltatorii de aplicații Windows au una dintre marile oportunități de a crea forme (semi) transparente (ferestre). În Delphi 6, clasa TForm acceptă formulare cu straturi care au proprietățile AlphaBlend, AlphaBlendValue, TransparentColor și TransparentColorValue.







Transparența în formă înseamnă că utilizatorul poate vedea ce este sub forma poziției.

Pentru a pregăti formularul pentru transparență, trebuie să setați proprietatea AlphaBlend la True. Dacă AlphaBlend este setat la True, proprietatea AlphaBlendValue indică gradul de transparență. Această proprietate vă permite să setați valori de la 0 la 255. 0 indică transparența completă a ferestrei, în timp ce 255 indică o fereastră opacă.

De asemenea, este posibil să setați proprietățile AlphaBlend și AlphaBlendValue la momentul proiectării (sau la timpul de execuție) cu Inspectorul de obiecte.







Următoarea formă a casetei de dialog Despre are valoarea AlphaBlendValue setată la 210.

Poate că veți crede că o astfel de oportunitate în Delphi ar putea să vă fie puțin folositoare, dar este posibil să atrageți atenția utilizatorilor programului în mod transparent:

Codul de mai sus, în evenimentul OnClose pentru forma aproximativă, creează un efect de schimbare fără probleme. Când utilizatorul încearcă să închidă caseta de dialog, formularul va dispărea fără probleme. Acest lucru se face prin ciclism AlphaBlendValue la zero.

Celelalte două proprietăți noi în Delphi 6 sunt TransparentColor și TransparentColorValue. TransparentColor, aceasta este o proprietate booleană care indică dacă culoarea specificată specificată în TransparentColorValue este transparentă. Asta este, putem specifica transparența doar la o anumită culoare.

De exemplu, setați TransparentColor pentru formularul Despre în True. Acum am setat proprietatea TransparentColorValue la clWhite - care corespunde cu albul. Componenta Memo are un fundal alb, astfel încât fereastra Despre arată astfel:







Articole similare

Trimiteți-le prietenilor: