如何设置image控件背景颜色

[olayxiu]

如何设置image控件背景颜色

[jerry8]

放在PANEL里好使不

[yct0605]

楼上的正解：我在来一段
with Image1.canvas do
begin
Brush.Color := clBlack;
FillRect(Bounds(0, 0, Image1.Width, Image1.Height));
//画线颜色
Pen.Color := clYellow;
Pen.Width := 1;
//画横线
for i := 0 to 6 do
begin
MoveTo(2, 30 + i * 23);
LineTo(463, 30 + i * 23);
end;
//画竖线
for i := 0 to 2 do
begin
DrawLine(154 * i + 2);
end;
end;

[fangsp]

[Quote=引用 2 楼 3150379 的回复:]
Delphi(Pascal) codeprocedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Canvas.Brush.Color:=clYellow;
Image1.Canvas.FillRect(Rect(0,0,Image1.Width,Image1.Height));
end;
[/Quote]
正解 顶

[五维思考]

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Canvas.Brush.Color:=clYellow;
  Image1.Canvas.FillRect(Rect(0,0,Image1.Width,Image1.Height));
end;