Denne artikkelen forklarer hvordan du kan manipulere skjema utseende på Windows XP ved å legge skygge effekt.
Trinn 1
Lag en ny form eller endre hovedformen. I form koden for eksempel frmShadow, styre CreateParams () metode med din egen
Type:.
TfrmShadow = klasse (TForm) private {felleserklæringer} offentlige {offentlige erklæringer} beskyttet prosedyre CreateParams (var Params: TCreateParams); styre; ende
Fyll ut skjemaet erklæring ved å trykke CTRL + SHIFT + C. Delphi IDE vil legge implementaion av CreateParams.
Trinn 2
Fordi skygge effekt vil bare fungere på Windows XP eller senere, må du sørge for at vi legger skygge bare når vi vet at operativsystemet er Windows XP.
funksjon IsWinXP: Boolean; begynne
Resultat: = (Win32Platform = VER_PLATFORM_WIN32_NT) og (Win32MajorVersion > = 5) og (Win32MinorVersion > = 1); ende
Trinn 3
Sist vi legge skygge effekt ved å modifisere Stil
av WindowClass litt inne CreateParams
prosedyre TfrmShadow.CreateParams (Var Params: TCreateParams);. konst CS_DROPSHADOW = $ 00.020.000; begynne arvet,
hvis IsWinXP deretter begynne Params.WindowClass.Style: = Params.WindowClass.Style eller CS_DROPSHADOW; ende