TfpgDragEnterEvent

type TfpgDragEnterEvent = procedure(

  Sender: TObject;

  Source: TObject;

  AMimeList: TStringList;

  var AMimeChoice: TfpgString;

  var ADropAction: TfpgDropAction;

  var Accept: Boolean

) of object;