Delphi实现窗口的渐变显示特效和图片显示特效，主要实现了界面色彩渐变和图片的整体拉出效果。sysmenuHandle:=GetSystemMenu(handle,false);//得到系统菜单的handle 　　IfsysmenuHandle0Then 　　Begin 　　itemcount:=GetMenuItemcount(sysmenuHandle);//得到系统菜单的个数 　　fori:=0toitemcount-1do 　　begin 　　itemflags:=GetM