Можно ли перемещать элементы по форме

[sviat9440]

Добрый день,столкнулся с такой задачей: можно ли перемещать элемент по форме, и чтобы за ним тянулась линия от точки старта? т.е. как мы перемещаем окно по рабочему столу, так и например: кнопку, по форме.

[Alex7wrt]

Смотрите в сторону обработки событий Drag & Drop, OnMouseDown, OnMouseMove, OnMouseUp

[sviat9440]

Смотрю, нет такого, мне нужно чтобы он перемещался так как окно на рабочем столе и за ним тянулась линия от точки старта (можно не прямую)

[Alex7wrt]

Осипов. Delphi. Программирование для Windows, OS X, iOS и Android. стр. 76. Листинг 4.11. Перемещение объектов с помощью мыши.

[sviat9440]

Огромное спасибо

[sviat9440]

Стоп, а как сделать так, чтобы за элементом тянулась линия от точки старта

[sviat9440]

и как сделать так, чтобы кнопку нельзя было вытащить за пределы панели и если честно, то я даже не знаю как вообще реализовать линию)

Изменено 4 мая, 2015 пользователем sviat

[Alex7wrt]

В событии OnMouseMove помимо изменения координат перетаскиваемого элемента можно вызывать событие OnPaint главной формы и передавать координаты, по которым рисовать путь.

[sviat9440]

Извините, наверно я неправильно обьяснил: мне не нужно рисовать путь, мне нужно чтобы проходила ПРЯМАЯ линия от точки старта, до текущей позиции. Я делаю программу для тестирования, раздел "установите соответствие", согласитесь: буден не очень красиво если будет отрисован весь путь.

[Alex7wrt]

Какой путь рисовать - решаете только Вы.

Для рисования прямой линии можно вычислить координаты центра объекта в событии OnMouseDown, а затем их же в событии OnMouseUp, и построить линию по этим двум точкам.

[sviat9440]

Можно и так, а что нельзя сделать так, чтобы линия "тянулась" за кнопкой во время перемещения?

[Alex7wrt]

Можно, конечно. Просто определяйте координаты конца в OnMouseMove

[sviat9440]

Интересно, даже не задумывался,... ну попробую спасибо!

[sviat9440]

Стоп, а как вообще линию то рисовать?

[sviat9440]

Пробовал стандартный элемент TLine, крутил, вертел, так и ничего путевого не добился. Там диагональ только в одну сторону

[xenon54]

Используйте Canvas.DrawLine в методе OnPaint.

[sviat9440]

хорошо, поищу еще инфу о канве, с ней до этого момента вообще не знаком.

 

А как реализовать функцию, чтобы кнопку можно было перетянуть только в одно из трех мест?

[sviat9440]

Используйте Canvas.DrawLine в методе OnPaint.

Как перевести начальную позицию из X, Y: Integer; в TPointF

[xenon54]

Вычислять координаты, перетягиваемого элемента в событии OnMouseUpи там принимать решение что с ним делать оставлять или обратно тащить.

point := TPointF.Create(X,Y);

Изменено 4 мая, 2015 пользователем xenon54

[Alex7wrt]

Как перевести начальную позицию из X, Y: Integer; в TPointF

SomeObject.Position:=PointF(X,Y);

Изменено 4 мая, 2015 пользователем Alex7wrt

[sviat9440]

 

Как перевести начальную позицию из X, Y: Integer; в TPointF

SomeObject.Position:=PointF(X,Y);

 

Мне нужно это вставить в канву: Canvas.DrawLine(Apt1, Apt2: TPointF, Opasiti: Single)

[sviat9440]

А можно так:

 

 

var 

xStart, yStart: Single;

 

procedure TForm3.Button1MouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Single);

begin

xOffset:=X; //нажатие кнопки мыши

yOffset:=Y; //запомнили отступы xOffset и yOffset end;

end;

 

 

procedure TForm3.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Single);

var Start, Finish:TPointF;

begin

  if (ssLeft in Shift) then

  with (Sender as TControl) do

  begin

  Position.Y := Position.Y+Y-yOffset;

  Position.X := Position.X+X-xOffset;

  Start.X:=xOffset;

  Start.Y:=yOffset;

  Finish.X:=X;

  Finish.Y:=Y;

  Canvas.Drawline(Start, Finish, 1);

  end;

end;

 

???

Изменено 4 мая, 2015 пользователем sviat

[Alex7wrt]

Мне нужно это вставить в канву: Canvas.DrawLine(Apt1, Apt2: TPointF, Opasiti: Single)

 

Canvas.DrawLine(PointF(X1,Y1), PointF(X2,Y2), Opasiti: Single)

[sviat9440]

Ага, только получилось это:

[sviat9440]

 

Мне нужно это вставить в канву: Canvas.DrawLine(Apt1, Apt2: TPointF, Opasiti: Single)

 

Canvas.DrawLine(PointF(X1,Y1), PointF(X2,Y2), Opasiti: Single)

 

О спасибо и так попробую

[sviat9440]

Неа, все равно "отпечатки (кнопоК)"