Arrastrar desde un StringGrid para luego borrar
 

Hola Foro.

Estoy trabajando con delphi 7 y StringGrid.

Empecé este tema en

http://www.clubdelphi.com/foros/showthread.php?t=82634

pero creo que para esta consulta debe iniciar un nuevo hilo.


Esta aplicación que adjunto permite ordenar los items de un StringGrid en forma manual,

También permite eliminar una fila del StrinGrid.

En este EJEMPLO lo logro seleccionando la fila en cuestión y lUego hago Click en el botón [ < ]

Lo que necesito hacer es poder eliminar una fila pero arrastrandola hacia otro sector, en este ejemplo un tmemo.

Cómo la selección se hace en el evento "onMouseDown" del stringgrid, el memo no reconoce el evento "onMouseUp".


Bueno, esta es la ayuda que necesito.

<desde ya muchas gracias

¿Y si utilizas los métodos estandard de drag and drop?

Una modificaciones para arrastrar al memo (he desactivado las otras).

Gracias Neftali. Pero no encuentro que se modificó del código porque no se arrastra nada. ¿?. :confused:

Lo que ví es que se en el evento onMouseDown del StringGrid, coloco StringGrid1.enable:=false. Entonces si funciona el OnMouseUp del Memo2

Hola Carmelo Cash.

Para hacer mas claro el ejemplo, quité casi todo el código de tu adjunto; agregando el necesario para hacer lo que solicitas arriba.

Saludos. :)

Tienes razón. Acabo de descargar el ejemplo que he subido y está incompleto. :(:(
No se que hice, pero so subí la versión correcta. A ver si luego puedo recuperar el ejemplo final y lo vuelvo a subir.

Casi Listo
 

Gracias ecfisa, Neftali.

Adjunto el modelo terminado tiene una sola cosa que no me gusta, es que para arrastrar y eliminar un registro del StringGrid hay que tener la tecla Ctrl apretada.

Me gutaría poder eliminar esta restricción para poder utiliar este programa con un monitor táctil sin utilizar mouse y/o teclado.

Este programa que adjunto permite mover los registros y arrastrarlos al sector de "Eliminados".

Desde ya muchas gracias por todo.^\||/

Hola Carmelo.

Del código correspondiente al evento OnMouseDown quita o comentá las siguientes líneas:

Código Delphi [-]
procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  with TStringGrid(Sender) do
  begin
  //  if ssCtrl in Shift then
  //  begin
      MouseToCell(X, Y, FCol, FRow);
      BeginDrag(True);
 //   end;
  end;
end;

Saludos. :)

Hola ecfisa, gracias por tu ayuda, pero si hago tu propuesta en el programa de ejemplo se deshabilita la opción de Mover los registros.

Hola CarmeloCash.

Si estas hablando sobre el código del adjunto del mensaje #5 y no modificaste nada más que las tres líneas que te mencioné, sencillamente no es posible. El único comportamiento que se cambia al anular o eliminar esas líneas, es que se contemple o nó la presión de la tecla Ctrl cuando un botón del mouse es presionado.

Ahora si es sobre otro codigo, tendrías que adjuntarlo (o ponerlo en un mensaje) para que lo podamos revisar.

Saludos. :)

Me faltan 5 para el peso.
 

Hola foro.
Retomo ete tema que dejé en el freezzer un par de meses. el 99,9% ya está listo.

Les recuerdo que el objetivo era poder ordenar manualmente con el mouse una lista. también poder eliminar items de la lista arrastrando la fila seleccionada hacia fuera de la grilla.

Esto ya se logró y se puede eliminar sin apretar "Ctrl" que era lo último pendiente.

Ahora bien...

Me gustaría que cuando se va a eliminar un item, en el cursor del mouse (debajo de la flecha) , se muestre el nombre de la persona que se va a eliminar.

o sea algo como esto:
//Screen.Cursor.text:= StringGrid1.Hint; (por supuesto esto no anda)

Bueno. Espero se entienda lo que necesito.

Adjunto el proyecto como va quedando.

Gracias por su atención.