Question

DELPHI 我想找一个方法，能够遮挡一个控件的一个角，实验了很多方法都不成功

我有一个控件，描述水罐形状的，通过设置VALUE值，来改变水罐的液面高度，水罐形状是矩形的，我想把矩形下面的两个角，变成倒角，实验了很多方法，一旦液面高度变化的时候，就全部显示了，那两个角，想了用两个image,或者把Image放在panel上，或者canvas都不能很好的实现，求大家帮忙解决这个问题，
如上图所示，我现在遮挡处用的是一个panel，导致显示的，被切了一个矩形，而不是三角形，我想只切一个三角形，怎么做，实验了很多方法了

Answer 1

你这问题想的有点复杂了，其实你直接画在Image控件里不就行了，把液面的实时变化画到Image里，然后用一个算法自动画直线，快到下面几公分时直线长度减一最后画出来的就是有角的了！
就像这样：
.......................................
.......................................
................................
........................

Answer 2

用 CreatePolygonRgn 创建一个由一系列点围成的区域
，然后填充这个多点区域就可以了
FillRgn 用指定刷子填充指定区域，
FrameRgn 用指定刷子围绕指定区域画一个外框

还有一个傻办法：用一个组件吧容器上半部分盖住，通过改变这个组件的高度，显示不同的水量

追问

傻办法倒是的，不过还要改变宽度，因为最底下的宽度小一点
CreatePolygonRgn 用这个的话，我就是要用form作为画布，画出来以后直接被控件覆盖了

追答

哈哈，给你做了个小示例，发给你要不要？

追问

你发我邮箱吧，ljy851011@163.com，我刚才把用panel上放了一个IMage，可是还是会闪烁，除非是直接改panel的高度

追答

已发送，请查收

Answer 3

你可以尝试下shape控件，可以设置样式，貌似就有三角形的，是delphi自带的控件

Answer 4

额。这个问题我还真不知道，不好意思，帮不了你