VPF::DragDrop - Форум программистов

jDeuterium

Дата 6.1.2013, 17:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 27.3.2012

Репутация: нет
Всего: нет

Привет, нужна помощь в реализации Drag and Drop.
Задание: Составить тест, в котором варианты ответов необходимо перемещать в пропущенные поля формулы.
Например:
34+__-2=40
8 12 10
нажимаем на 8 и перетаскиваем в пустое поле, если правильный ответ, тогда в пустом поле появляется 8 и поле меняет цвет на зеленый, если не правильный, то поле становиться красным, и есть возможность исправить на правильный.

Я реализовал это с помощью Label, но возникла проблема, я могу переместить только правильный Label в пустое поле, другие туда не вставляются, мне же необходимо любой Label переместить в любой пустой Label.

Это сообщение отредактировал(а) jDeuterium - 6.1.2013, 17:08

Присоединённый файл ( Кол-во скачиваний: 3 )

DragDrop.rar 7,49 Kb

jDeuterium

Дата 7.1.2013, 14:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 27.3.2012

Репутация: нет
Всего: нет

Еще вопрос: заместо пустых полей я использую Label, а возможно ли использовать для этого другой элемент, например Panel?

jDeuterium

Дата 8.1.2013, 14:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 27.3.2012

Репутация: нет
Всего: нет

Нашелся ответ, может кому то пригодится
у всех Label-ов, которые будешь перетаскивать, выставить DragMode = dmAutomatic, а всем меткам, на которые перетягиваются ответы, назначить в OnDragDrop и OnDragOver вот такие события:

Код


type
  TForm1 = class(TForm)
  // ...
  private
    { Private declarations }
  public
    { Public declarations }
    // Описываем
    procedure MyLabelDragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure MyLabelDragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
  end;
 
// ...
 
// Реализуем
procedure TForm1.MyLabelDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
   (Sender as TLabel).Caption := (Source as TLabel).Caption;
end;
 
procedure TForm1.MyLabelDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
   Accept := Source is TLabel;
end;
 
 
// FormCreate - назначаем
   Label5.OnDragDrop := MyLabelDragDrop;
   Label5.OnDragOver := MyLabelDragOver;
   // и так далее, с Label6, 7, 8

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »