title: Drag and drop unicode TText in DelphiXe4
body: <p>I am trying to make a chessboard gui in DelphiXE4 with TRectangle &amp; TText using unicode chess pieces (see <a href="https://stackoverflow.com/questions/17189143/unicode-in-delphi-form-trectangle-ttext?noredirect=1#comment24892586_17189143">StackOverflow Delphi chess unicode link</a>and drag and drop but I cannot get DND to work properly! My test project is FireMonkey FMX.
  I have tried various code additions to DragDrop/DragOver Events including using Accept &amp; Source in code but to no result.</p>
  
  <p>I set dragdrop to auto on TRectangle &amp; TText components &amp; can get drag function but no drop function! What code do I need to enter in Events DragDrop DragOver on target TRectangle to accept the drop event? (I am very confused with this &amp; cannot find clear instruction on Google search anywhere!)</p>
  
  <p>Here is my basic test code (on Form):</p>
  
  <pre><code>unit Unit1;
  
  interface
  
  uses
    System.SysUtils, System.Types, System.UITypes, System.Rtti, System.Classes,
    System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs,
    FMX.StdCtrls, FMX.Objects;
  
  type
    TForm1 = class(TForm)
      Rectangle1: TRectangle;
      Rectangle2: TRectangle;
      Rectangle3: TRectangle;
      Rectangle4: TRectangle;
      Rectangle5: TRectangle;
      Rectangle6: TRectangle;
      Rectangle7: TRectangle;
      Rectangle8: TRectangle;
      Rectangle9: TRectangle;
      Text1: TText;
      procedure Rectangle7DragOver(Sender: TObject; const Data: TDragObject;
        const Point: TPointF; var Accept: Boolean);
    private
      { Private declarations }
    public
      { Public declarations }
    end;
  
  var
    Form1: TForm1;
  
  implementation
  
  {$R *.fmx}
  
  procedure TForm1.Rectangle7DragOver(Sender: TObject; const Data: TDragObject;
    const Point: TPointF; var Accept: Boolean);
  begin
    if Sender is TText then 
      Accept := True;
  end;
  
  end.
  </code></pre>
  
  <p>Most grateful for help &amp; look forward to replies-thanks</p>
  
  <p>EDIT/UPDATE</p>
  
  <p>Here is code from bummi:</p>
  
  <pre><code>unit Unit3;
  
  interface
  
  uses
    System.SysUtils, System.Types, System.UITypes, System.Rtti, System.Classes,
    System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs,
    FMX.Objects, FMX.Edit;
  
  type
    TForm3 = class(TForm)
      Rectangle1: TRectangle;
      Text1: TText;
      Edit1: TEdit;
      procedure Rectangle1DragOver(Sender: TObject; const Data: TDragObject;
        const Point: TPointF; var Accept: Boolean);
    private
      { Private-Deklarationen }
    public
      { Public-Deklarationen }
    end;
  
  var
    Form3: TForm3;
  
  implementation    
  {$R *.fmx}    
  procedure TForm3.Rectangle1DragOver(Sender: TObject;
    const Data: TDragObject; const Point: TPointF; var Accept: Boolean);
  begin
    Caption := Data.Source.ClassName ;
    Accept := Data.Source is TText;       
  end;    
  end.
  </code></pre>
  
  <p>However even with this I  still cannot get my chess example to work for me! Oh dear aaargh!</p>