Delphi Уроки: Drag&Drop учимся перетаскивать картинку по форме
В этом уроке будем учиться с помощью мышки перетаскивать по форме компонент Image.
1. Создаем новый проект на форму кидаем компонент Image с закладки Additional. Сразу загрузите в image какую ни будь картинку!
2. Для начала давайте определимся с тем каким образом пользователь будет перемещать объект по форме. Я предлагаю сделать так: если нажата кнопка мышки и удерживается клавиша Ctrl то можем перетаскивать. Для этого на компоненте Image создаем обработчик событий OnMouseDown, в котором пропишем вот такую строку
if ssCtrl in Shift then Image1.BeginDrag(True) ;
Т.Е при нажатии кнопки мышки проверяем условие: если нажата клавиша CTRL то можем перетаскивать
Во время перетаскивания компонента Image над формой, а также при отпускании кнопки, у Формы возникает событие:
OnDragOver - В котором мы должны сказать форме примет ли она данный элемент(В нашем случае Image)
Итак, создадим на форме обработчик событий OnDragOver и в нем пропишем вот такую строку
Accept:= (Source is TImage) ; // Разрешаем принимать компонент Image
3. Теперь нам осталось лишь сообщить программе что нужно делать, когда пользователь отпустил кнопку т.е завершил перетаскивание. Для этих целей существует событие OnDragDrop В обработчик этого события передаются параметры Source (объект-источник) и X и Y координаты курсора. В общем создаем обработчик событий OnDragDrop на форме и между begin .. end пишем:
if Source is TImage then // Если перетаскиваем компонент Image то
begin
TImage(Source).Left := X; //Переместить компонент Image в координаты //курсора по X
TImage(Source).Top := Y; //Переместить компонент Image в координаты //курсора по Y
end;
Вот и все можите запускаться!!! Если кто не понял зачем нужна такая функция, приведу простой пример - это все ровно что использовать памятники из гранита и мрамора тут вроде тяжелые, но в тоже время без них не как не обойтись... тоже самое и в современной программе без перетаскивания (Drag&Drop) никуда !
P.S. Полный код примера:
procedure TForm1.FormDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
if Source is TImage then
begin
TImage(Source).Left := X;
TImage(Source).Top := Y;
end;
end;
— Регулярная проверка качества ссылок по более чем 100 показателям и ежедневный пересчет показателей качества проекта.
— Все известные форматы ссылок: арендные ссылки, вечные ссылки, публикации (упоминания, мнения, отзывы, статьи, пресс-релизы).
— SeoHammer покажет, где рост или падение, а также запросы, на которые нужно обратить внимание.
SeoHammer еще предоставляет технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней. Зарегистрироваться и Начать продвижение
procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := (Source is TImage) ;
end;
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if ssCtrl in Shift then Image1.BeginDrag(True) ;
end;
До встречи DelphiExpert.ru !!!
Похожие материалы
- Delphi уроки - Drag&Drop, перетаскивание строк в компоненте DBGrid
- Drag&Drop - в ваших программах
- Компонент для сортировки listview
- Поиск файлов на компьютере (mfilescan)
- Delphi исходники - поиск кратчайшего пути в лабиринте
Последние из рубрики
- Delphi уроки - Учимся работать с Excel документами в Delphi
- Delphi уроки: ComboBox равняйсь на право
- Delphi Уроки: Компонент Edit внутри компонента ListBox