Drag and Dock

[shadowofjustice]

Здравствуйте!
В общем возник вопрос, на который пока я никак не могу найти ответа. Инет

облазил насколько мог. В общем проблема вот в чем.
В программе возникла необходимость перемещать Image с помощью мыши

(естественно чтобы он не вылазил за пределы формы и т.д. - но это потом).

Тщетные попытки использования Docking почти ни к чему не привели: через

одно перемещение он превращается в отдельный тулбар, а наследующее опять

липнет к форме.
Я нашел исходники как сделать его без панельки заголовка, но все равно он

только через раз липнет к форме и событие OnEndDock соответсвенно тоже

через раз срабатывает.
Помогите плиз.
З.Ы. может можно сделать это как-то проще через Drag?

[Witaliy]

А не пойдет через OnMouseUp, OnMouseMove, OnMouseDown?

Вот код. Попробуй.

procedure TForm1.imageMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dow:=true;
ox:=x;
oy:=y;
end;

procedure TForm1.imageMouseMove(Sender: TObject; Shift: TShiftState; X
Y: Integer);
begin
if dow=true then
begin
image.Top:=image.Top-(oy-y);
image.Left:=image.Left-(ox-x);
end;
end;

procedure TForm1.imageMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dow:=true;
end;

[shadowofjustice]

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

[Alter]

мерцание менее заметно визуально когда используют ДвойнойБуфер:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 dow:=true;
 ox:=x;
 oy:=y;
 DoubleBuffered := true;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 if dow=true then
 begin
  image1.Top:=image1.Top-(oy-y);
  image1.Left:=image1.Left-(ox-x);
 end;
end;

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

[BOBAH13]

"мерцание менее заметно визуально когда используют ДвойнойБуфер:" когда сделано с головой оно вообще не заметно, и как вы искали если данный вопрос уже многократно обсуждался, чего только уже не двигали на этом форуме

[yulia]

Может и этот вопрос уже обсуждался, но в этой тебе как раз и процедуры прописаны - очень удобно.. А вопрос такой: у меня этих имеджей 17 штук и каждую надо двигать... Это надо для каждого по 3 процедуры эти прописывать или можно один раз для всех как-то?

[mutabor]

1. Не обязательно три процедуры, достаточно одной MouseMove с обработкой параметра Shift (только не спрашивайте что это за параметр и как узнать его значения =)), ладно, немного подскажу: if ssLeft in Shift then ... это для левой кнопки.

2. Имиджи в массив, и общий обработчик. В инспекторе выберите каждому имиджу его или в коде ImageX.OnMouseMove:=ВашОбработчик;
* узнать какой же имидж его вызвал можно из параметра Sender

[yulia]

Спасибо )))

[Altera]

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

"мерцание менее заметно визуально когда используют ДвойнойБуфер:" когда сделано с головой оно вообще не заметно, и как вы искали если данный вопрос уже многократно обсуждался, чего только уже не двигали на этом форуме

А что так голословно?
Может примерчик кинул бы?

[mihali4]

Реализация интерфейса плавающих окон (Drag&Dock), не написав ни одной строчки кода:

Установите свойство docksite формы в true. А у имеджей установите свойство dragmode в dmautomatic, а свойство dragkind в dock. Вот и все.

Запустите ваше приложение. При щелчке по какому-нибудь из имеджей у него появятся атрибуты плавающего окна и его спокойно можно будет перемещать по экрану.