自分自身の全身が見えているのか

ちょっと必要があって書いてみたんだけど

もしかしたら他に方法があって車輪の再発明かも知れない

procedure TForm1.Timer1Timer(Sender: TObject);
  function IsShowFullBody:Boolean;
    function IsShowForm(P:TPoint):Boolean;
    var
      PosHandle:HWND;
    begin
      PosHandle:=WindowFromPoint(P);
      Result:=Handle=PosHandle;
    end;
  begin
    Result:=(IsShowForm(Point(Left+1,Top+1)))and
            (IsShowForm(Point(Left+1,Top+Height-1)))and
            (IsShowForm(Point(Left+Width-1,Top+1)))and
            (IsShowForm(Point(Left+Width-1,Top+Height-1)));

  end;
begin
  if IsShowFullBody then Caption:='IsShowFullBody' else Caption:='No';
end;

＃真ん中だけ隠れてたら False 返しちゃうぢゃん（T▽T）当たり前だけど