Перетаскивание объектов, Drag and Drop, Docking

  

Code:

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

const SC_DragMove = $F012; { a magic number }

{©Drkb v.3(2007): www.drkb.ru}

 

begin

ReleaseCapture;

Form1.perform(WM_SysCommand, SC_DragMove, 0);

end;

 

 

Автор ответа: TAPAKAH

 

Взято с Vingrad.ru https://forum.vingrad.ru

Добавить комментарий
Подробности
Родительская категория: Перетаскивание объектов, Drag and Drop, Docking
Категория: Перемещение объектов мышкой

 

Автор: Павел

 

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

 

Итак, задача. На форме размещены несколько изображений, загружаемых из внешних файлов (их имена 1.bmp, 2.bmp и т.д.).

 

Изображения должны быть перемещаемыми с помощью мыши.

 

Подробнее: Перемещение изображений... Добавить комментарий
Подробности
Родительская категория: Перетаскивание объектов, Drag and Drop, Docking
Категория: Перемещение объектов мышкой

Docking

Перемещение объектов мышкой