Average rating:
Questo articolo spiega come forma di manipolare l'aspetto di Windows XP con l'aggiunta di effetti ombra.
Step 1:

Creare un nuovo modulo o modificare modulo principale. In forma di codice di esempio frmShadow, ignorare CreateParams () con il proprio metodo.

Tipo:

TfrmShadow = classe (TForm)
privato
() Private dichiarazioni
pubblico
() Dichiarazioni pubbliche
protetta
procedura CreateParams (var Params: TCreateParams); override; fine

Forma completa dichiarazione premendo CTRL + MAIUSC + C. Delphi IDE aggiungerà attuare CreateParams.

Step 2:

Perché ombra effetto funziona solo su Windows XP o versioni successive, è necessario assicurarsi che si aggiungono ombra solo quando sappiamo che il sistema operativo è Windows XP.

IsWinXP funzione: Booleano; iniziare

Risultato: = (Win32Platform = VER_PLATFORM_WIN32_NT) e
(Win32MajorVersion> = 5) e (Win32MinorVersion> = 1); fine

Step 3:

Ultimo aggiungiamo ombra effetto modifiying stile di WindowClass bit all'interno CreateParams.

procedura TfrmShadow.CreateParams (var Params: TCreateParams);
const CS_DROPSHADOW = $ 00020000;
iniziare ereditato;

se IsWinXP poi iniziare Params.WindowClass.Style: = Params.WindowClass.Style o CS_DROPSHADOW; fine

Zamrony P Juhara's picture
About this Author:
Zamrony P Juhara is a Delphi programmer from Indonesia currently living in Surabaya. He is very interested in DirectX programming topics. Currently, he maintains his own website, http://juhara.com, where he posts his DirectX programming articles.
View more information and all guides by Zamrony P Juhara

Be the First to Comment on this Article