След после перемещения TImage

[dimavit]

Компонент TImage создается динамически и размещается на компоненте PaintBox. При изменении положения TImage путем задания его новых координат (Left и Top) на месте начального положения остается его след. Как можно от него избавиться? Установка TImage.Visible:= False перед началом перемещения ничего не дает. Закрашивать не подходит т.к. PaintBox, являющийся фоном, имеет разные цвета и заранее не известно на каком из них (либо вообще на их границе) был размещен компонент TImage.

[FaTaL]

Используй Form1.Repaint;

[dimavit]

Тут мне пришла в голову такая мысль - а может причина оставления следа это то, что родителем моего TImage является TPanel, а уже на TPanel лежит TPaintBox, на котором отрисован фон. По этому то фону и должен двигаться TImage. Таким образом, и TImage и TPaintBox имеют общего родителя TPanel. После перемещения я и вижу на месте TImage кусочек его родителя. А вот сделать TPaintBox родителем TImage не получается.

[Пепел Феникса]

между прочим TImage не может быть поверх TPaintBox.

[dimavit]

Сообщение от Пепел Феникса

между прочим TImage не может быть поверх TPaintBox.

Ну вот и я о том же. А как правильно поступить в таком случае? Задача такая - точка размером 6х6 пикселов перемещается по TPaintBox на которой начерчены круги? Начинал с того, что точку тоже отрисовывал, но при перемещении "дырка" от ее начального положения все равно оставалась. Решил использовать TImage, поскольку рассчитывал, что изменяя его Left и Тор смогу двигать точку как захочу. Но результат тот же - след остается. Есть мысль поступить так - скопировать участок фона, на котором будет располагаться точка. Поместить на него точку. При перемещении заткнуть полученную "дырку" скопированным участком. Но не слишком ли это сложно и долго? Нет ли более простого пути. Задача усложняется тем, что точек может быть много и каждая перемещается. Эскиз проблемы представлен на прилагаемом рисунке.

[chertovich]

При каждом премещении, необходимо перерисовывать канву.

[Пепел Феникса]

Почему, может. Хоть и TPainBox не может содержать других элементов управления.

TImage не оконный компонент,и не может быть выше оконного(так как рисуется строго на поверхности родителя, не имея собственной).
или TPaintBox тоже не оконный?

[chertovich]

TPainBox тоже не оконный, он наследник, как и TImage, класса TGraphicControl

[dimavit]

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

При каждом премещении, необходимо перерисовывать канву.

Но тогда все-таки быстрее будет заткнуть дырку сохраненным ранее участком канвы? Тем более, что перерисовывать все невозможно по той причине, что таких точек много и каждая живет своей жизнью.

[chertovich]

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

Но тогда все-таки быстрее будет заткнуть дырку сохраненным ранее участком канвы? Тем более, что перерисовывать все невозможно по той причине, что таких точек много и каждая живет своей жизнью.

Включите двойную буферизацию компонента (DoubleBuffered := True), на котором лежит ваш TPaintBox, и все будет быстро и красиво перерисовываться, проверено. Только для вызова перерисовки, вызывайте метод PaintBox.Repaint (Refresh), а не на прямую код.