在form中显示一个红色方块，当点击Button后使红色方块扩大一倍，这怎么实现？？

Question

在form中显示一个红色方块，当点击Button后使红色方块扩大一倍，这怎么实现？？
用什么控件可以插入一个红色图案？

Answer 1

可以不用控件，直接在画布上画...
var
  Form1: TForm1;
  rectwidth: integer = 20;implementation{$R *.dfm}procedure TForm1.FormPaint(Sender: TObject);
begin
  Canvas.Pen.Color := clred;
  Canvas.Brush.Color := clred;
  Canvas.Rectangle(0, 0, rectwidth, rectwidth);
end;procedure TForm1.Button1Click(Sender: TObject);
var
  myRect: TRect;
begin
  rectwidth := 2 * rectwidth;
  myRect := rect(0, 0, rectwidth, rectwidth);
  InvalidateRect(handle, @myRect, false)
end;
也可以用shape控件，在additional页上...

Answer 2

用shape控件，修改里面的长宽属性即可

Answer 3

shape，太简单了。改brush 和 pen的属性