Drag and drop StringGrid

Question

Bonjour, 
Je fais un drag d' Explorer vers  StringGrid tout ce passe bien, mais depuis un téléphone
StringGrid refuse le drag  
ci-dessous le code que j'utilise.

procedure TFormBackUp.FormCreate(Sender: TObject);
begin
  DragAcceptFiles(StringGrid1.Handle, True);
  Application.OnMessage := TraiteMessage;
  // c'est la procédure TraiteMessage qui va traiter les messages
end;

procedure TFormBackUp.TraiteMessage(var Msg: TMsg; var Handled: Boolean);
var
  NombreDeFichiers, size, i: integer;
  NomDuFichierStr: string;
  NomDuFichier: array [0 .. 255] of char;
begin
  if Msg.message = WM_DROPFILES then
  begin
    NombreDeFichiers := DragQueryFile(Msg.wParam, $FFFFFFFF, NomDuFichier,
      SizeOf(NomDuFichier)); // récupération du nombre de fichiers
    for i := 0 to NombreDeFichiers - 1 do
    begin
      size := DragQueryFile(Msg.wParam, i, NomDuFichier, SizeOf(NomDuFichier));
      // récupération du nom du fichier
      NomDuFichierStr := NomDuFichier;
      // tansformation du tableau de char en STRING

StringGrid1.RowCount := StringGrid1.RowCount + 1;
      StringGrid1.Cells[0, StringGrid1.RowCount - 1] :=
        ExtractFileDrive(NomDuFichierStr);
      StringGrid1.Cells[1, StringGrid1.RowCount - 1] :=
        ExtractFilePath(NomDuFichierStr);
      StringGrid1.Cells[2, StringGrid1.RowCount - 1] :=
        ExtractFileName(NomDuFichierStr);
      if not FileExists(NomDuFichierStr) then
         StringGrid1.Cells[3, StringGrid1.RowCount - 1] :=
           floattostrf(TailleDossier(NomDuFichierStr,'*.*',faAnyFile) div 1024, ffNumber, 7,0)+' kb'
      else
         StringGrid1.Cells[3, i] :=
                      floattostrf(TailleFichierr(NomDuFichierStr) div 1024, ffNumber, 7,0)+' kb';
    end;
  end;

Jusque là je n'ai pas trouvé ni sur le site ni avec google
connaissez vous une solution ???
merci.

pprem · Answer

Bonjour
Quel type de téléphone ?

pprem · Answer

Suis étonné que ce code se compile avec FMX. La gestion des messages est différentes, les codes de messages de Windows n'y sont pas gérés.

Par défaut les plateformes iOS / Android ne gèrent pas le Drag&Drop dans FMX. Il faut redévelopper une partie pour le gérer en interne au programme.

Paul Toth avait écrit un article là-dessus :
http://lookinside.free.fr/delphi.php?FMXBasedDragDrop

Si c'est pour associer une extension de fichier à une application, il faut en revanche utiliser les API de l'OS. Sur Android ça consiste à ajouter des déclarations dans le manifest et gérer un événement au niveau de l'application.

papyvore · Answer

non aucun message , simplement l'icone du drag refusé

pprem · Answer

Donc ça doit être ça : Windows ne déclenche pas le vrai drag&drop et ne le gère que pour lui.
Est-ce que le drag&drop d'une photo depuis le smartphone peut s'ouvrir dans un logiciel de dessin qui accepterait cette opération depuis l'explorateur de fichiers ? Si c'est KO, faut partir du principe que ce n'est pas géré par le driver du téléphone, si c'est OK, il faudrait espionner le système pour voir quels messages transitent.

papyvore · Answer

je viens d'essayer avec XnView qui accepte les drag depuis windows ça marche.
mais depuis le telephone j'ai exactement la même erreur.
bon merci je vais voir comment intercepter le message et la, c'est pas gagné ,merci de t'être intéressé à cette question.

Drag and drop StringGrid

5 réponses

Votre réponse

Discussions similaires