如何生成一个边框内透明的矩形，用来选择从视频图像的区域以便抓图

Question

请有过相关经验的多多指教！

Answer 1

在播放从视频卡上采集来的实时图像时，Shape就看不到了，该如何才能使这个矩形的边框显示在实时图像之上呢。
这么久了每人回答，自己顶一下。

Answer 2

看一下这个程序的实现方法：http://www.tonixsoft.com/index.php?mmenu_id=4&smenu_id=0015

Answer 3

借aiirii 的帖子
这个就能满足，
我就是用这个做成的
用窗体form1:tform1覆盖在你的窗体上面，form1的位置通过一个timer定时调整。
----------------------------------------------------------------------------
回复人： aiirii(ari-爱的眼睛) ( ) 信誉：316  2004-7-13 15:10:58  得分: 95     
procedure TForm1.FormCreate(Sender: TObject) ;
var
   FullRgn, ClientRgn, ButtonRgn: THandle;
   Margin, X, Y: Integer;
begin
   Margin := (Width - ClientWidth) div 2;
   FullRgn := CreateRectRgn(0, 0, Width, Height) ;
   X := Margin;
   Y := Height - ClientHeight - Margin;
   ClientRgn := CreateRectRgn
     (X, Y, X + ClientWidth, Y + ClientHeight) ;
   CombineRgn(FullRgn, FullRgn, ClientRgn, RGN_DIFF) ;
   X := X + Button1.Left;
   Y := Y + Button1.Top;
   ButtonRgn := CreateRectRgn
     (X, Y, X + Button1.Width, Y + Button1.Height) ;
   CombineRgn(FullRgn, FullRgn, ButtonRgn, RGN_OR) ;
   SetWindowRgn(Handle, FullRgn, True) ;
end;試下這個呢