[Гудвин]

Суть такая на пэинтбоксе изображение объектов с подписями, при нажатии на подпись на её месте появляется Эдит, пользователь вводит текст клацает по пэинтбоксу в другом месте и подпись меняется на то что он ввёл, а эдит исчезает.
Данный пример работает без проблем если пэинтбокс лежит на форме. если же он лежит на панели, то, после исчезновения эдита, изображение перерисовывается полностью но на месте эдита остается белый прямоугольник
onPaint в данном случае использовать нельзя
Из-за чего это, и как тут быть?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ExtCtrls;   type   TForm1 = class(TForm)     Button1: TButton;     Panel1: TPanel;     PaintBox1: TPaintBox;     Edit1: TEdit;     procedure FormCreate(Sender: TObject);     procedure Button1Click(Sender: TObject);     procedure PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;       Shift: TShiftState; X, Y: Integer);   private     procedure drawfon;     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   fRect:Trect;   str:string; implementation   uses Types;   {$R *.dfm} procedure TForm1.drawfon; begin with PaintBox1 do begin Canvas.Brush.Color:=clgreen; Canvas.pen.Color:=clgreen; Canvas.Rectangle(0,0,Width,Height); Canvas.pen.Color:=clRed; Canvas.Rectangle(frect); canvas.TextOut(frect.Left+2,frect.Top+2,str); end; end; procedure TForm1.FormCreate(Sender: TObject); begin frect.Left:=200; frect.top:=200; frect.right:=250; frect.bottom:=220; str:='Текст'; end;   procedure TForm1.Button1Click(Sender: TObject); begin drawfon; end;   procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;   Shift: TShiftState; X, Y: Integer); begin if Edit1.Visible then   begin    str:=Edit1.Text;    Edit1.Visible:=false;    drawfon;   end else if (x>frect.Left)and(x<fRect.Right)and(y>frect.Top)and(y<fRect.Bottom)then   begin    Edit1.Left:=fRect.Left;    Edit1.top:=fRect.top;    Edit1.width:=fRect.Right-fRect.Left;    Edit1.Height:=fRect.Bottom-fRect.Top;    Edit1.Visible:=true;    Edit1.SetFocus;   end; end;   end.