Как перетащить и подсветить область, куда перетаскиваем объект

@xmaksasx · Регистрация: 15.08.2011

Студворк — интернет-сервис помощи студентам

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

@xmaksasx · 16.05.2012, 22:33 **[ТС]**

Ребят неужели ни кто не сталкивался помогите пожалуйста очень надо.

@nastena_r_v · 17.05.2012, 12:17

xmaksasx, Я не пойму суть вопроса, нужно вставить окно в эту область? Или что? Честно,не пойму...

@duhar · 17.05.2012, 12:41

Используй прозрачную форму или же имагу

@xmaksasx · 17.05.2012, 21:30 **[ТС]**

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

xmaksasx, Я не пойму суть вопроса, нужно вставить окно в эту область? Или что? Честно,не пойму...

при запуске в программы два окна ну второе можно таскать можно сделать его отдельным ну как только это окно перетащить на форму сразу подсвечивается область куда его можно вставить

Добавлено через 57 секунд

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

Используй прозрачную форму или же имагу

а можно немного подробней?

@duhar · 18.05.2012, 08:16

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

Одиночка · 18.05.2012, 10:39

Действительно, ставишь на то место компонент Image. Пишешь ему событие OnDragOver, в котором можно определить, если перетаскиваемый объект перемещается над ним. В этом событии грузишь в Image соответствующую картинку или закрашиваешь.

@xmaksasx · 18.05.2012, 11:15 **[ТС]**

Спасибо всем кто откликнулся буду пробовать, да и еще может кто встречал компонент типа ToolStripContainer(он есть в Visual Studio 2008) его просто бросаешь на форму делаешь Align=alClient и дело в шляпе)

@volvo · 18.05.2012, 11:21

Зачем тут DragOver, если то, что хочет автор - это DockOver?

Одиночка · 18.05.2012, 11:58

UI Как раз DockOver возникает когда компонент уже отпускают. А DragOver - только тащат.

@volvo · 18.05.2012, 12:14

Неправда. Когда тащат - это DockOver, когда отпускают - DockDrop. Не путай перетаскивание и докинг. Если, скажем, положить на форму 2 панели, и одну сделать приемником (Panel1.DockSite = true, Panel1.DragKind = dkDock), обработчик OnDockOver:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Panel1DockOver(Sender: TObject; Source: TDragDockObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
   Accept := Source.Control is TPanel;
   if Accept then
   begin
      if PtInRect(Panel1.ClientRect, Classes.Point(X, Y)) then
         Panel1.Color := clBlue
      else
         Panel1.Color := clBtnFace;
   end;
end;

, а вторую - источником (то, что будем перетягивать, Panel2.DragKind = dkDock, Panel2.DragMode = dmAutomatic), то при "протягивании" второй панельки над первой как раз и будет подсветка, а не тогда, когда отпустишь вторую панель.

Одиночка · 18.05.2012, 13:09

UI Таки проверил и убедился, что ты совершенно прав.

@xmaksasx · 23.05.2012, 01:54 **[ТС]**

Всем кто откликнулся большое спасибо буду пробовать, стараться, развиваться)

Добавлено через 10 часов 45 минут
Ребятушки нашел таки я решение для своей проблемы)))) куда более простое) наверняка все слышали о DevExpress ну так там во вкладке ExpressBars есть три компанента которые мне были необходимы это dxDockSite, dxDockPanel и dxDockingManager при помощи этих вещей можно сделать и настроить все что угодно ну я имею ввиду и подсветку и встраивание окна и т.д.

ЗЫ может кому пригодится)

Одиночка · 23.05.2012, 02:18

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

@xmaksasx · 23.05.2012, 08:29 **[ТС]**

Ну да это не из стандартных компонентов, да я понимаю, что могут возникнуть проблемы ну а если пользоваться одной машиной я думаю все будет ок)

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .

@xmaksasx 8 / 8 / 5 Регистрация: 15.08.2011 Сообщений: 57

	Как перетащить и подсветить область, куда перетаскиваем объект 16.05.2012, 20:52. Показов 3276. Ответов 14 Метки нет (Все метки) Всем доброго времени суток, подскажите пожалуйста как подсветить область куда перетаскиваем панель, окно или тулбар на картинке показано, я перерыл все но не нашел ни чего связанного с подсветкой может кто сталкивался или видел какие то компоненты. Миниатюры 0

@xmaksasx 8 / 8 / 5 Регистрация: 15.08.2011 Сообщений: 57
	16.05.2012, 22:33 [ТС]
	Ребят неужели ни кто не сталкивался помогите пожалуйста очень надо. 0

@nastena_r_v 47 / 47 / 1 Регистрация: 03.05.2012 Сообщений: 266
	17.05.2012, 12:17
	xmaksasx, Я не пойму суть вопроса, нужно вставить окно в эту область? Или что? Честно,не пойму... 0

@duhar 61 / 44 / 6 Регистрация: 15.01.2012 Сообщений: 167
	17.05.2012, 12:41
	Используй прозрачную форму или же имагу 0

@duhar 61 / 44 / 6 Регистрация: 15.01.2012 Сообщений: 167
	18.05.2012, 08:16
	создаешь отдельную форму, нужного цвета, полупрозрачную, без компонентов. и то место которое нужно "подсветить" будет местом формы. то есть передвигаешь эту форму и меняешь ей размер 0

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	18.05.2012, 10:39
	Действительно, ставишь на то место компонент Image. Пишешь ему событие OnDragOver, в котором можно определить, если перетаскиваемый объект перемещается над ним. В этом событии грузишь в Image соответствующую картинку или закрашиваешь. 0

@xmaksasx 8 / 8 / 5 Регистрация: 15.08.2011 Сообщений: 57
	18.05.2012, 11:15 [ТС]
	Спасибо всем кто откликнулся буду пробовать, да и еще может кто встречал компонент типа ToolStripContainer(он есть в Visual Studio 2008) его просто бросаешь на форму делаешь Align=alClient и дело в шляпе) 0

@volvo Супер-модератор 33198 / 21494 / 8233 Регистрация: 22.10.2011 Сообщений: 36,888 Записей в блоге: 12
	18.05.2012, 11:21
	Зачем тут DragOver, если то, что хочет автор - это DockOver? 0

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	18.05.2012, 11:58
	UI Как раз DockOver возникает когда компонент уже отпускают. А DragOver - только тащат. 0

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	18.05.2012, 13:09
	UI Таки проверил и убедился, что ты совершенно прав. 0

@xmaksasx 8 / 8 / 5 Регистрация: 15.08.2011 Сообщений: 57
	23.05.2012, 01:54 [ТС]
	Всем кто откликнулся большое спасибо буду пробовать, стараться, развиваться) Добавлено через 10 часов 45 минут Ребятушки нашел таки я решение для своей проблемы)))) куда более простое) наверняка все слышали о DevExpress ну так там во вкладке ExpressBars есть три компанента которые мне были необходимы это dxDockSite, dxDockPanel и dxDockingManager при помощи этих вещей можно сделать и настроить все что угодно ну я имею ввиду и подсветку и встраивание окна и т.д. ЗЫ может кому пригодится) 0

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	23.05.2012, 02:18
	Если это не стандартный компонент. А у меня на D7 нет такой вкладки - у тебя будут проблемы, если захочешь вносить изменения в проект на другой машине. Имей ввиду. 0

@xmaksasx 8 / 8 / 5 Регистрация: 15.08.2011 Сообщений: 57
	23.05.2012, 08:29 [ТС]
	Ну да это не из стандартных компонентов, да я понимаю, что могут возникнуть проблемы ну а если пользоваться одной машиной я думаю все будет ок) 0