Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > DragDrop

Автор: jDeuterium 6.1.2013, 17:07

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

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

Автор: jDeuterium 7.1.2013, 14:53

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

Автор: jDeuterium 8.1.2013, 14:26

Нашелся ответ, может кому то пригодится
у всех 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