Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, эксперты!
Как сделать возможным перетаскивание панели (или другого компонента) по форме?
Нужно описывать событие OnMouseDown, так? BeginDrop тут нужен? Если да, то как с ним справиться?

Вопрос задала: Тамара (статус: Посетитель) Вопрос отправлен: 12 февраля 2010, 21:50 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Alexey6522

var
x0, y0: integer; //начальные координаты картинки
drag: boolean = false;{определяет режим буксировки
она будет устанавливаться в True
вначале и в False в конце }

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button=mbLeft then begin //если нажата левая кнопка мыши
x0:=x; //запоминаем первоначальные
y0:=y; //координаты курсора
drag:=true; //перемещение началось
{методом BringToFront выдвигаем компонент
в котором произошло событие не передний план}
(Sender as TImage).BringToFront;
end else //если нажата не левая кнопка мыши
drag:=false; //нет перемещения
end;

procedure TForm1.Image1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept:=Source is TImage;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if drag then
with TImage(Sender) do begin
Left:=Left+x-x0;
Top:=Top+y-y0;
end;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
drag:=false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.DoubleBuffered:= true; //Для Того что бы картинка не мигала при перетаскивании, конечно есть и другие способы
end;

Ответ отправил: Alexey6522 (статус: 1-ый класс) Время отправки: 13 февраля 2010, 12:48 Оценка за ответ: 5 Комментарий к оценке: То, что надо!!!

Мини-форум вопроса

Death_Master (статус: Посетитель), 12 февраля 2010, 22:07 [#1]: Версия Делфи? Если 2010 - OnStarDrag & OnEndDrag... Если я правильно помню... Обычно захожу по ночам... (60-70%) Если нужно что-то написать, то беру оборудованием, деньгими и пивом(при личной встрече)... P.S. Помогаю и рассказываю бесплатно ^_^.....Nyaaa!

IlluminatI (статус: 2-ой класс), 12 февраля 2010, 22:10 [#2]: Здравствуйте Тамара! вот здесь - http://www.delphikingdom.com/asp/viewitem.asp?catalogid=342 хорошая статья как раз по вашей теме (+ еще пара интересных моментов)

IlluminatI (статус: 2-ой класс), 12 февраля 2010, 22:17 [#3]: Death_Master, насколько я понял, требуется не Drag&Drop, а простое перетаскивание компонентов в run-time

min@y™ (статус: Доктор наук), 13 февраля 2010, 07:36 [#4]: Ну нафига задавать вопрос, ответ на который входит в 100% FAQ'ов по Delphi? Неужели трудно набрать запрос в гугле и нажать Enter? Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Тамара (статус: Посетитель), 15 февраля 2010, 20:15 [#5]: Спасибо всем, кто ответил и не нахамил!

Alexey6522 (статус: 1-ый класс), 16 февраля 2010, 00:58 [#6]: Спасибо надо говорить нажимая + тем кто отвечал

Тамара (статус: Посетитель), 16 февраля 2010, 20:34 [#7]: Alexey6522! Особое СПАСИБО за ответ. )

Alexey6522 (статус: 1-ый класс), 16 февраля 2010, 22:21 [#8]: Не за что ))))))

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.