Delphi shape 填充颜色

admin

在Delphi中，如果你想为Shape控件设置填充颜色，你可以使用Shape控件的Brush属性。Brush属性包含一个TBrush对象，它有一个Color属性，你可以设置为你想要的颜色。

以下是一个简单的例子，展示了如何为TShape设置填充颜色：

1. procedure TForm1.SetShapeFillColor(Shape: TShape; Color: TColor);
   
2. begin
   
3.   Shape.Brush.Color := Color;
   
4.   Shape.Brush.Style := bsSolid; // 设置画刷样式为实色
   
5. end;
   
6. 
   
7. procedure TForm1.FormCreate(Sender: TObject);
   
8. begin
   
9.   // 创建一个TShape并设置其属性
   
10.   with TShape.Create(Self) do
    
11.   begin
    
12.     Parent := Self;
    
13.     Width := 100;
    
14.     Height := 100;
    
15.     Left := 10;
    
16.     Top := 10;
    
17.     Pen.Color := clBlack; // 设置边框颜色
    
18. 
    
19.     // 调用上面定义的过程来设置填充颜色
    
20.     SetShapeFillColor(Self, clRed); // 将TShape的填充颜色设置为红色
    
21.   end;
    
22. end;

复制代码

在这个例子中，我们创建了一个TShape对象，并在FormCreate事件中设置了它的属性。我们还定义了一个过程SetShapeFillColor来设置TShape的填充颜色。你可以将此过程应用于任何TShape实例，只需传入TShape对象和你想要的填充颜色。