Arrastrar desde un StringGrid para luego borrar

[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.