[tincho]

Sería interesante poder distinguir si estamos copiando o moviendo según se pulse la tecla Control

Hice la distinción pero en vez de usar la tecla control discrimino según el botón de ratón que se presione. Para ello uso el evento MouseDown
Adjunto la versión 3
Saludos.

[Shordi]

Es una opción, desde luego. A mí no me vale desde que el botón derecho despliega un menú (en el que sí, están las opciones de copiar, cortar y pegar, claro) y la cosa se convierte en confusa, pero es una opción.

[jsbsan]

Shordi:

Me alegra saber de ti y que estés bien.

Un abrazo "virtual".

Saludos

Julio

[tincho]

A mí no me vale desde que el botón derecho despliega un menú

Comprendo.
Logro resolverlo con control pero antes de iniciar el Drag no durante el Drag, que me parece que es lo que deseas hacer no?
Dime si te vale con con control antes de inicia rel Drag.
Saludos.

[Shordi]

De momento lo tengo resuelto con una función:

GAMBAS

Public Sub DirView1_Drop()
 
   Dim s As String
    
   If Not $tvProxy.FindAt(Drag.x, Drag.y) Then
        Estructura.current = $tvProxy.Item.Key
        Estructura.Refresh
        Wait
        s = Drag.Paste()
        Arrastre(s, Estructura.Current)
        Return
    Endif
 
Catch
    Print Error.Text;; Error.Where
    Message.Error("No se pudo completar la operación de Drag & Drop. Error: " & Error.Text & "-" & Error.Where)
 
End
 
Private Sub Arrastre(origen As String, destino As String)
    
    Dim n As Integer
    Dim salida As String
    
    n = Message.Question("<font size=\"+1\"><b>Desplazando</b> '" & File.Name(origen) & "'<b> a </b>'" & File.Name(destino) & "'", "Copiar", "Mover", "Cancelar")
    Select Case n
        Case 1
            Copy origen To destino &/ File.Name(origen)
        Case 2
            Copy origen To destino &/ File.Name(origen)
            Kill origen
        Case Else
            Return
    End Select    
End

Si lo que propones es marcar primero un radiobutton o algo así... pues es lo mismo, creo.
Gracias por tu interés-

---

Vaya, creo que eso de enviar código no es enviar el fuente... ¿Es eso de insertar Geshi?

[tincho]

Si lo que propones es marcar primero un radiobutton o algo así... pues es lo mismo, creo.

No, lo que propongo es apretar la tecla control dejarla presionada y luego hacer el drag & drop.
Preparo algo y lo subo.
Saludos.

---

Vaya, creo que eso de enviar código no es enviar el fuente... ¿Es eso de insertar Geshi?

Si el botón de geshi [el ultimo de la fila (no el de Manolo García ) ] es para poner las etiquetas al código en el post.
ok, fijate en el ejemplo. Veras que el drag drop solo lo uso para activar la copia o el mover los archivos, pero que archivos o que modo (copy o move) se maneja de otro lado.
Saludos.

[Shell]

Kon'nichiwa Shordi-san.

Me alegra ver que no has perdido la chispa por la programación y que te encuentras bien.

Saludos

[Shordi]

Eso ya lo intenté yo... pero no funciona. En modo múltiple la pulsación de Control la "captura" el evento select y no levanta el Drag. De manera que lo que haces al tener varios seleccionados y pulsar sobre uno de ellos con la tecla control previamente presionada es deseleccionarlo.

Con modo single sí funciona... pero eso ya funcionaba.

[tincho]

Eso ya lo intenté yo... pero no funciona

Lo siento, que tengas suerte.
Un saludo.

[Shordi]

Creo que me he rendido yo también. Lo dejo con el message.question que puse más arriba. Funciona y con eso vale... supongo.
Saludos.