2011年7月9日
NoBn - 窗口透明
摘要： procedure TForm1.Button1Click(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 阅读全文
posted @ 2011-07-09 22:56 noevil 阅读(265) 评论(0) 推荐(0)