Question

delphi里怎么给shape定义初始颜色，一开始只能是透明框吗？

Answer 1

在你对画刷使用之前，你可以定义任意颜色，但只有最后一个画刷的颜色才是有效的！
你这种情况，只可能是因为你在绘制前没定义值。。

Answer 2

你的意思应该是选取控件放到界面上之后的初始颜色吧？
如果是的话, 那要自己定义一个类了, 继承自TShape类, 用覆盖方法[Override]覆盖原来的构造函数, 看起来简单, 其实挺麻烦的, 不知道对不对！

Answer 3

我这shape怎么不是透明的？

定义颜色：Shape1.Brush.Color:=clRed;