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

@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 **[ТС]**

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

Новые блоги и статьи Все статьи Все блоги /
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .

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

	Как перетащить и подсветить область, куда перетаскиваем объект 16.05.2012, 20:52. Показов 3354. Ответов 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 Супер-модератор 33421 / 21527 / 8240 Регистрация: 22.10.2011 Сообщений: 36,935 Записей в блоге: 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