[boxep]

Как сделать что бы восстанавливало изображение после полного или частичного перекрытия формы.
У меня рисуется круг, но как перекрою окно изображения пропадает...

Задание:

Из центра PaintBox не слишком быстро (заметно для пользователя) рисуются разноцветные окружности со все увеличивающимися радиусами. Когда окружности перестают вмещаться в PaintBox, он очищается, и процесс начинается с начала.

а это код программы

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=True;
xg:=250;
yg:=250;
k:=1;
end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin
randomize;
if k<250 then
begin
a:=random(255);
b:=random(255);
c:=random(255);
PaintBox1.Canvas.Pen.Color:=RGB(a,b,c);
PaintBox1.Canvas.Brush.Style:=bsClear;
PaintBox1.Canvas.Ellipse(xg-k,yg-k,xg+k,yg+k);
inc(k);
end
else
begin
k:=1;
PaintBox1.Canvas.Brush.Color:=clBtnFace;
PaintBox1.Canvas.FillRect(Rect(0,0,500,500));
end;
end;

[roamer]

Вероятно, надо перекрыть метод Paint.
И рисовать там.

[boxep]

Сообщение от roamer

Вероятно, надо перекрыть метод Paint.
И рисовать там.

А метод Paint это как, сделать?

[roamer]

Сообщение от boxep

А метод Paint это как, сделать?

--- Извините. Я ввел Вас в заблуждение.
Метод Paint надо перекрывать, если создается наследник от компонента.
А если используется данный компонент на форме, то надо использовать обработчик OnPaint.
Есть пример в Help`е :

Код:

1 2 3 4 5 6

with PaintBox1.Canvas do  begin   Canvas.Pen.Color := clWhite;   Canvas.Polyline([Point(40, 10), Point(20, 60), Point(70, 30),   Point(10, 30), Point(60, 60), Point(40, 10)]); end;

[roamer]

Sorry-2.

Код:

1 2 3 4 5 6 7 8 9

procedure TForm1.PaintBox1Paint(Sender: TObject); begin   with PaintBox1.Canvas do    begin     Pen.Color := clWhite;     Polyline([Point(40, 10), Point(20, 60), Point(70, 30),     Point(10, 30), Point(60, 60), Point(40, 10)]);   end; end;

[Страдалецъ]

Поскольку вы рисуете прямо на форме, то для корректной отрисовки формы все операции по рисованию на ней должны проводиться в событии OnPaint. (Roamer - верно сказал.)
Альтернативой является использование компонента на котором можно рисовать без этих проблем - например TImage или TPaintBox.