Arsip: bayangan form

 
user image
more 18 years ago

unknown

setelah melihat bentuk form dari vista aku kok jadi tertarik sama bentuk formnya. gimana ya cara buat efek bayangan pada form yang kita bangun. apa masih ada hubungannya sama AlphaBlending ya? terus kalo kita ingin cuman 1 component saja(bukan seluruh form) yang transparant kira2 gimana solusinya. atau pada area tertentu saja yang transparant? wasalam...
user image
more 18 years ago

Maul_aku

ini kode form untuk yang shadownya : interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) private { Private declarations } public { Public declarations } protected procedure CreateParams(var Params: TCreateParams); override; // Important ! end; var Form1: TForm1; implementation {$R *.DFM} {------------------------------------------------------------} // Here we check of the user is running Windows XP function IsWinXP: Boolean; begin Result := (Win32Platform = VER_PLATFORM_WIN32_NT) and (Win32MajorVersion >= 5) and (Win32MinorVersion >= 1); end; {------------------------------------------------------------} {------------------------------------------------------------} // Check if it is Windows XP if all is OK then create the drop shadow procedure TForm1.CreateParams(var Params: TCreateParams); const CS_DROPSHADOW = $00020000; begin inherited; if IsWinXP then Params.WindowClass.Style := Params.WindowClass.Style or CS_DROPSHADOW else end; {------------------------------------------------------------} end. yang 1 component belum bisa
user image
more 18 years ago

unknown

kalo cuma satu component(area tertentu misal panel aja bisa gak) aja gimana dung.
user image
more 18 years ago

zieborg

kalo cuma satu component(area tertentu misal panel aja bisa gak) aja gimana dung.
install JVCL(gratis), di compoent pallete JVCL Globus1 ada component JvgShadow (container, bisa buat semua visual control, except form), klo ga mau komponen tambahan, koding aja sendiri.
user image
more 18 years ago

unknown

emang di JVCL ada ya, ok tk nyari dulu. ok bozz makasih
user image
more 18 years ago

unknown

ternyata dihardiskku dah da tuh JVCL cuman lum keinstal ja. dah bisa and yang penting gratisss.... makasih buat semuanya
user image
more 18 years ago

DelphiExpert

yang penting gratisss... wahahahaha... :D
more ...
  • Pages:
  • 1
Share to

AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now: https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com