Canvas формы

[Прик]

Если вы не можете придумать метод движения объекта по форме в своих условиях, то что я то могу предложить?
Если даже не знаю чем вам вариант "НИЧЕГО НОВОГО" не устраивает.
"Море вариантов" - это для вас, а не для меня.

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

...в нем есть недостатаки

Если бы знать в чем. Может быть удалось бы недостатки эти преодолеть совместными усилиями.

Или сверхзадача заключалась в том, чтобы "разоблачить" не состоятельных советчиков?

[chertovich]

Я не стал заморачиваться, просто перед началом перемещения отключил отрисовку контура, при конце перещения включил. Недостатки заключались в том, что при перемещении канвас не очищался, а новые линии рисовались. На счет исследования проблемы, так не встречал поиском у других этой проблемы, потому что мало кто любит рисовать на канве компонента наследника TWinControl, поэтому и использую форум. Если б необходимо было решить одну задачу, искал бы готовое решение, а здесь совокупность действий, при работе которых происходит неправильное, по моему мнению, действие. Замечу, что очень мало помощи получаю, обращаясь на форум, потому что мало кому хочется вникать в чужие проблемы, вот и получается, что формум для многих место показать свои знания, характер, а не помочь.

[Alter]

Сообщение от Прик

И где эта перерисовка наблюдается?
Сделайте хотя бы элементарные телодвижения:

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  // Перемещение панели
  ReleaseCapture;
  Panel1.Perform(WM_SYSCOMMAND, $F012, 0);
  Invalidate;
end;

Ну разве можно двигать объекты по форме этаким кодом... Где слямзили?
Впрочем, какая разница - надо бы автору поискать как это делается нормально - примеров море.

Что плохого в таком способе переноса, через Perform? Через него можно и другое делать, не только с панелью.
Код этот везде, например: http://www.programmersforum.ru/showp...06&postcount=9 | http://www.vidon.ru/old/delphi/sovety.htm | http://u.to/nVolAQ и т.д.

[ZuBy]

Как вариант:
Panel1MouseDown - запоминаем координаты мышиного курсора (saveX, saveY : Integer или savePt : TPoint);
Panel1MouseMove - сдвигаем панель на Panel1.Left := Panel1.Left + X - saveX (не забывая и вертикальную составляющую);
Panel1MouseUp - сброс savePt (saveX, saveY).
saveX, saveY, savePt - имена нарицательные и могут быть заменены на любые другие по вкусу.

в MouseMove добавлял Invalidate;?
Paint в данном случае не помощник