摘要：
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 阅读全文