急!请教一个画矩形并在其中填写文本的问题,谢谢
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;
当我画了矩形并填写了一行字符串后,会出现矩形的部分或全部边框消失的情况,请问这
是什么原因,是不是有什么输出文本范围的属性要设置啊,非常感谢!!!!