急！请教一个画矩形并在其中填写文本的问题，谢谢

Question

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);var
rect1:Trect;
begin
 canvas.Rectangle(x,y,x+100,y+20);
 rect1.left:=x;
 rect1.Top:=y;
 rect1.Right:=x+100;
 rect1.Bottom:=y+20;
 canvas.textrect(rect1,x,y,InputBox('请输入字符串','字符串',''));
end;
当我画了矩形并填写了一行字符串后，会出现矩形的部分或全部边框消失的情况，请问这
是什么原因，是不是有什么输出文本范围的属性要设置啊，非常感谢！！！！

Answer 1

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);var
rect1:Trect;
begin
 canvas.Rectangle(x,y,x+100,y+20);
 rect1.left:=x + 1;
 rect1.Top:= y + 1;
 rect1.Right:=x+99;
 rect1.Bottom:=y+19;
 canvas.textrect(rect1,x,y,InputBox('请输入字符串','字符串',''));
end;这样才不会把边框填了.
因为 textrect 过程是用当前画布颜色来填充的

Answer 2

非常感谢，不过如果在同一个form上多画一些矩形并填写文本时（没有重叠），仍然会出现某些矩形边框被覆盖的情况，请问这是怎么回事，再次表示感谢

Answer 3

我现在知道了，是被inputbox覆盖掉了，当inputbox消失以后form重新画了该部分，所以我想问一下怎样才能不被inputbox覆盖掉，是否能设置某些属性？谢谢

Answer 4

这样吧.在 Form 上放一个 Image 控件.
Image 控件的 Align 属性设为 alClient;
Visible 属性设为 False;
上边的代码改为以下
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);var
rect1:Trect;
begin
 Image1.Canvas.Brush.Style := Canvas.Brush.Style;
 Image1.Canvas.Brush.color := canvas.Brush.Color;
 Image1.canvas.Rectangle(x,y,x+100,y+20);
 canvas.Rectangle(x,y,x+100,y+20);
 rect1.left:=x + 1;
 rect1.Top:= y + 1;
 rect1.Right:=x+99;
 rect1.Bottom:=y+19;
 Image1.canvas.textrect(rect1,x,y,InputBox('请输入字符串','字符串',''));
 canvas.CopyRect(Rect(x,y,x+100,y+20), Image1.Canvas, Rect(x,y,x+100,y+20));
end;

Answer 5

不过image组件的Align属性设为了alclient，程序运行时，image充满了整个form内，点击form时根本就无法激发FormMouseDown事件啊，

Answer 6

procedure TForm1.FormMouseDown
                 ~~~~~~~~~~~~~~但这里写的是MouseDown啊

Answer 7

注意:Image 控件的 Visible 属性设为 False;Image 就看不见了呀..我上边不是说了嘛