delphi... drag & drop

[vicvic90]

Как сделать так, чтобы определенный shape принимал только определенный shape. например shape1(приёмник) принимает только shape2(источник) , а shape3 только shape10 например. Только так и никак иначе. В обработчике событитий нельзя выбирать среди shap'ов .

[Zer0]

насколько я помню там в обработчике есть объект "передатчик", то есть который передают в shape, можно обработать его имя:

procedure TForm1.Shape1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
if (Source as TShape).Name='Shape2' then
Accept:=true else Accept:=false;
end;

[vicvic90]

Большое спасибо