Цитата mkw-best:
|
А можно элементарный пример. »
|
Увы, для примера нужно установить VB, а пример в Delphi вам может ничего не дать!
читать дальше »
// Автор: Михаил Христосенко
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button<>mbLeft then move:=false
else begin
move:=true;
x0:=x;
y0:=y;
rec:=image1.BoundsRect; //запоминаем контур картинки
end;
end;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if move then begin
Form1.Canvas.DrawFocusRect(rec); //рисуем рамку
with rec do begin
left:=Left+x-x0;
top:=Top+y-y0;
right:=right+x-x0;
bottom:=bottom+y-y0;
x0:=x;
y0:=y; // изменяем координаты
end;
Form1.Canvas.DrawFocusRect(rec); // рисуем рамку на новом месте
end;
end;
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Form1.Canvas.DrawFocusRect(rec);
with image1 do begin
setbounds(rec.left+x-x0,rec.top+y-y0,width,height); //перемещаем картинку
move:=false;
end;
end;
Реализация должна зависеть от конечной цели проекта - построении произвольных схем или демонстрации каких-то стандартных.
В первом случае придется решать задачи динамического создания объектов из шаблона и привязки объектов к сетке на форме. Решать придется достаточно много, перемещение объектов отойдет на третий план, хотя даже эти процедуры можно решать по разному (сразу объект, сначала рамку - как в примере).
Во втором, все проще - создаете объекты (например, TShape), "строите" на форме или отдельных панелях из них схемы, по определенным событиям меняете или свойство Visible, или свойства Brush/Pen (здесь и таймер пригодится) - фактически демонстрируете работу схемы. Здесь все легко и наглядно. На второй вариант, меня навело ваше желание использовать таймер, ибо при реальном построении схемы он лишний. Может ошибаюсь.
Простой поиск по перемещению объектов в VB выдал следующее:
http://vbbook.ru/vb.net/peremeshenie...shi-na-vb-net/
http://www.programmersforum.ru/showthread.php?t=172497
http://www.sql.ru/forum/actualthread...id=953192&pg=2
http://www.vbfaq.ru/2008/09/kak-pere...-image-myshyu/