Arrastrar desde un StringGrid para luego borrar

[Carmelo Cash]

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

[Carmelo Cash]

Empezado por Carmelo Cash

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

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

[ecfisa]

Hola Carmelo Cash.

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

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.

[Neftali [Germán.Estévez]]

Empezado por Carmelo Cash

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

Empezado por Carmelo Cash

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

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.

[Carmelo Cash]

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.

[ecfisa]

Empezado por Carmelo Cash

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

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.

[Carmelo Cash]

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.

[ecfisa]

Empezado por Carmelo Cash

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.