判断一个窗体是否被完全遮挡(比较有意思,但这招有什么用呢?)

时间:2021-09-30 06:17:04

private void Form1_Paint(object sender, PaintEventArgs e)
{
    Text = e.ClipRectangle.Width.ToString();
}

在窗体的Paint事件中,有一个ClipRectangle的属性,解释为“获取要在其中进行绘画的矩形”
这个属性的作用就是:窗体在刷新的时候,,为提高效率一些被遮挡的区域就不用再绘制。
那么判断窗体是否被完全遮挡,只需要判断刷新时是否产生有效绘制。

bool windowPaint = false;

private void Form1_Paint(object sender, PaintEventArgs e)
{
    windowPaint = e.ClipRectangle.Width > 0 && e.ClipRectangle.Height > 0; // 存在刷新的区域
}

private void timer1_Tick(object sender, EventArgs e)
{
    windowPaint = false;
    Invalidate();
    if (windowPaint)
        Text = "客户区可见";
    else Text = "客户区不可见";
}


根据这个思路写出如上代码。测试的结果是对客户区判断有效,对标题栏判断失效。
联想到Delphi中OnPaint中没有参数,这个刷新区域能通过Canvas.ClipRect属性获得。
分析VCL源代码
function TCanvas.GetClipRect: TRect;
begin
  RequiredState([csHandleValid]);
  GetClipBox(FHandle, Result);
end;
找到GetClipBox函数。
按经验GetWindowDC可以取得整个窗体的画布(包括客户区和非客户区);
这样就有了线索,二话不说动手测试吧。
---Delphi----
function WindowPall(AHandle: THandle): Boolean; // 窗体是否被遮住
var
  vDC: THandle;
  vRect: TRect;
begin
  Result := False;
  if not IsWindowVisible(AHandle) then Exit;
  vDC := GetWindowDC(AHandle);
  try
    GetClipBox(vDC, vRect);
    Result := (vRect.Right - vRect.Left <= 0) and (vRect.Bottom - vRect.Top <= 0);
  finally
    ReleaseDC(AHandle, vDC);
  end;
end; { WindowPall }

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Application.Title := BoolToStr(WindowPall(Handle), True);
end;
达到理想效果。翻译成C#。