DragAndDrop в массивах компонентов

@Андрей Борисови · Регистрация: 04.10.2009

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

Доброго времени суток.

Возникла такая проблема:
Есть форма, на ней панель и Image. На панель кладется динамичски создаваемый массив фреймов.
Фрейм простой: панель, на ней Image и Lable.

Нужно:
реальзовать перенос рисунка с основного Image на любой выбранный Image массива фреймов.

Сделано:
прописал 2 процедурки (DragOver и DragnDrop). Их впихиваю их к каждому Image из массива.

Проблема:
при жестком указании на определенный индекс массива (Massive[2].Picture:=form1.Picture) все работает. Но без указания не могу выделить индекс массива под курсором...

Ширина панели - динамическая.
Ширина элемента массива - динамическая. Строится из ширины панели div кол-во элем. массива.

С удовольствием приму альтернативные варианты.

@Андрей Борисови · 16.03.2012, 10:59 **[ТС]**

С опозданием, но выкладываю свою наработку:
Массиф фреймов.zip

Но, в основном, меня интересует вот это место:

Delphi

procedure TForm1.MyDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  if (Sender is TFrame2) then
    (Sender as TFrame2).FrameImage.Picture:=form1.Image1.Picture;
end;

Оно не работает...

@STRATEG · 17.03.2012, 10:36

Значит смотри какая штука была:

Delphi

if (Sender is TFrame2) then
...
 frameimage.OnDragDrop:=form1.MyDragDrop;
 frameimage.OnDragOver:=form1.MyragOver;

По последним строкам видна установка обработчиков для TImage, значит у этого самого обработчика параметр Sender будет иметь класс TImage и условие как следствие этого не выполнится.

Решил проблему следующим образом:
Сделал "сквозной бросок".
Принцип простой, раз выше идёт проверка на принадлежность к классу TFrame2, то пускай за все "броски" и отвечает этот класс. Т.е. он будет выступать в качестве приёмника, либо передатчика (до этого имага в классе была приёмником\передатчиком). Когда вызывается обработчик кортинки, внутри него вызывается обработчик созданного класса и параметр Sender будет указывать на экземпляр этого класса.

(1) Добавил в класс TFrame2 обработчики D&D для FrameImage.

Delphi

procedure TFrame2.Image_DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
 OnDragDrop(Self,Source,X,Y);
end;
 
procedure TFrame2.Image_DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  OnDragOver(Self,Source,X,Y,State,Accept);
end;

(2) Переопределил конструктор и в нём присвоил обработчики (и внёс установку свойства в него

)

Delphi

constructor TFrame2.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
 
 FrameImage.OnDragDrop := Self.Image_DragDrop;
 FrameImage.OnDragOver := Self.Image_DragOver;
 frameimage.DragMode:=dmAutomatic;
end;

P.S. Можно попридумывать и другие способы решения проблемы, этот первый что пришёл в голову.

@Андрей Борисови · 17.03.2012, 11:05 **[ТС]**

Элегантно!

@Андрей Борисови 714 / 402 / 33 Регистрация: 04.10.2009 Сообщений: 1,686
		1
	DragAndDrop в массивах компонентов 15.03.2012, 15:44. Показов 753. Ответов 3 Метки нет (Все метки) Доброго времени суток. Возникла такая проблема: Есть форма, на ней панель и Image. На панель кладется динамичски создаваемый массив фреймов. Фрейм простой: панель, на ней Image и Lable. Нужно: реальзовать перенос рисунка с основного Image на любой выбранный Image массива фреймов. Сделано: прописал 2 процедурки (DragOver и DragnDrop). Их впихиваю их к каждому Image из массива. Проблема: при жестком указании на определенный индекс массива (Massive[2].Picture:=form1.Picture) все работает. Но без указания не могу выделить индекс массива под курсором... Ширина панели - динамическая. Ширина элемента массива - динамическая. Строится из ширины панели div кол-во элем. массива. С удовольствием приму альтернативные варианты. 0

@Андрей Борисови 714 / 402 / 33 Регистрация: 04.10.2009 Сообщений: 1,686
	17.03.2012, 11:05 [ТС]	4
	Элегантно! 0