全透明窗体（效果比较好）计算机等级考试

文章作者 100test 发表时间 2010:01:01 09:32:07
来源 100Test.Com百考试题网

　　全透明窗体（效果比较好）
　　uses里加上ExtCtrls
　　procedure tform1.setformtransparent.
　　var
　　I: Integer.
　　FullRgn,
　　ClientRgn,
　　ControlRgn: THandle.
　　Margin,
　　MarginX,
　　MarginY,
　　X,
　　Y: Integer.
　　W,H,S :Integer.
　　bX,bY :Integer.
　　c :TColor.
　　begin
　　Margin := (Width - ClientWidth) div 2.
　　FullRgn := CreateRectRgn(0, 0, Width, Height).
　　MarginX := Margin.
　　MarginY := Height - ClientHeight - Margin.
　　ClientRgn := CreateRectRgn(MarginX, MarginY, MarginX ClientWidth, MarginY ClientHeight).
　　CombineRgn(FullRgn, FullRgn, ClientRgn, RGN_DIFF).
　　DeleteObject(ClientRgn).
　　for I:=0 to ControlCount-1 do
　　begin
　　X := MarginX Controls[I].Left.
　　Y := MarginY Controls[I].Top.
　　W:=Controls[I].Width.
　　H:=Controls[I].Height.
　　{}
　　if controls[i] is timage then begin
　　with controls[i] as tImage do begin
　　c:=Picture.Bitmap.Canvas.Pixels[0,0].
　　for bX:=0 to Picture.Bitmap.Width-1 do begin
　　for bY:=0 to Picture.Bitmap.Height-1 do begin
　　if Picture.Bitmap.Canvas.Pixels[bX,bY]