07 2011 档案

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 阅读(262) 评论(0) 推荐(0)