delphi 用API实现 窗体半透明效果
2012-01-03 22:52
363 查看
procedure TForm1.Button1Click(Sender: TObject); var h: HWND; FormStyle: Integer; begin h := self.Handle; FormStyle := GetWindowLong(h, GWL_EXSTYLE); SetWindowLong(h, GWL_EXSTYLE, FormStyle or WS_EX_LAYERED); SetLayeredWindowAttributes(h, 0, 128, LWA_ALPHA); end;
procedure TForm1.Button2Click(Sender: TObject); Var frmRegion, tempRegion: HRGN; i: Integer; Arect: TRect; Begin frmRegion := 0; For I:= 0 To ControlCount - 1 Do Begin Arect := Controls[i].BoundsRect; OffsetRect( aRect, clientorigin.x - left, clientorigin.y - top ); tempRegion := CreateRectRgnIndirect( aRect ); If frmRegion = 0 Then frmRegion := tempRegion Else Begin CombineRgn( frmRegion, frmRegion, tempRegion, RGN_OR ); DeleteObject( tempRegion ); End; End; tempregion := CreateRectRgn( 0, 0, Width, GetSystemMetrics( SM_CYCAPTION )+ GetSystemMetrics( SM_CYSIZEFRAME )+ GetSystemMetrics( SM_CYMENU ) * Ord(Menu <> Nil)); CombineRgn( frmRegion, frmRegion, tempRegion, RGN_OR ); DeleteObject( tempRegion ); SetWindowRgn( handle, frmRegion, true ); end;
相关文章推荐
- delphi中窗体半透明效果如何实现
- 编程实现窗体的半透明效果
- 一个用UpdateLayeredWindow实现窗体半透明的delphi的代码-The realization of a form with translucent UpdateLayeredWindow code delphi
- 一个用UpdateLayeredWindow实现窗体半透明的delphi的代码
- Android实现在列表List中显示半透明小窗体效果的控件用法详解
- MFC下窗体半透明效果的实现
- 编程实现窗体的半透明效果
- Qt使用QGraphicsView实现滑动窗体效果
- 使用Tesseract (OCR)实现简单的验证码识别(C#)+窗体淡入淡出效果
- 在VB中实现窗体的动态效果
- 在DELPHI中利用API实现网格内组件的嵌入
- Winform实现窗体抖动的效果代码
- CSS实现半透明效果实现及兼容性笔记
- Qt使用QGraphicsView实现滑动窗体效果
- CSS opacity-实现图片半透明效果
- presentViewController 方法中实现半透明背景效果
- Air 窗体透明和随意拖动效果实现
- Image Reflection with jQuery and MooTools Example实现图片半透明渐变倒影效果
- OpenGL使用混合来实现半透明效果
- C#实现窗体淡入淡出效果的几种方法(转)