圖片複製與透明度 AlphaBlend

1 篇文章 / 0 new

發表回應前，請先登入

週二, 2013-10-08 09:16

author

圖片複製與透明度 AlphaBlend

form 本身即有透明度特定, 圖片則可利用 Windows.AlphaBlend 進行複製與透明度處理

procedure TForm1.Timer1Timer(Sender: TObject);
var
    p:TPoint;
    abc:blendFunction;
begin
    self.doublebuffered:=true;
    image1.picture.graphic:=Nil;
    abc.AlphaFormat:=0;
    abc.BlendFlags:=1;
    abc.BlendOp:=AC_SRC_OVER;
    abc.SourceConstantAlpha:=255;
 
    GetCursorPos(p);
    Windows.AlphaBlend(image1.Canvas.Handle,0,0,image1.Width,image1.Height //目的位置
            ,getdc(0),p.x,p.y,image1.Width,image1.Height //來源圖片
            ,abc); //特效處理
end;