Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Transparent Form
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00608768
Message ID:
00609391
Vues:
12
>Hi John,
>
>If you are using WinNT/2000 (and I'm sure it would work in XP) you can use the SetLayeredWindowAttributes API to make the form transparent. Note: the form must be set "As Top Level" only.
>
>Add to the init of the form:
>
IF ! 'FOXTOOLS' $ SET('LIBRARY')
>	SET LIBRARY TO Home() + "FOXTOOLS.FLL"
>ENDIF
>
>** Store the Window Handle
>DECLARE SetWindowLong IN Win32Api INTEGER, INTEGER, INTEGER
>DECLARE SetLayeredWindowAttributes IN Win32Api INTEGER, STRING, INTEGER, INTEGER
>DECLARE GetWindowLong IN Win32Api INTEGER, INTEGER
>
>** You only need the following line if pre VFP7
>**THIS.HWND = _WhTohWnd(_WFindTitl(THISFORM.CAPTION))
>
>now call the following from the click of a button.:
>
>
nLevel = 75 && Can be a number between 0 and 255
>SetWindowLong(THISForm.HWND, -20, 0x00080000)
>SetLayeredWindowAttributes(THISForm.HWND, 0, nLevel, 2)
>
>
>I got this from a post John Koziol made about a year ago. It's very cool.
>
>I wrapped the whole thing up into a class that can do slow disolves and stuff. I can email you a copy if you like.
>
>hth
>
>>Hi,
>>Any way to make my form look like WinCE form?
>>I used to try Form transmormer v1.1, it is great!!! However, I want more.. :)
>>I wish to have a form that transparent to desktop, but the form border still exist, and it work like a glass that will make the part of desktop under my form area look abit blur....
>>is it possible to do so?
>>
>>Thank you



Why does it only work with a top level form???
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform