Drag & Drop en StringGrid (Nuevo problema)

[miguel_fr]

Buenas, estube buscando un poco de ayuda sobre este tema y encontre algo para realizar con unos list, pero ahora surgio un nuevo problemita, resulta que yo quiero hacer mi Drag & Drop en un StringGrid, pero al activarlo dmAutomatico me inabilita los eventos de cuando se hace 1 o 2 click en una celda y de seleccionar una celda. Yo quisiera poder realizar todas estas cosas. El truco creo esta en usar el dmManual, pero no tengo la mas remota idea como se utiliza.
PD:Espero no crean que no busque en los hilos viejos, porque si lo hise y espero no se enfaden conmigo especialmente el Moderador R..... que no soporta los hilos repetidos

[[Lepe]]

Se me ocurre que Permitas las opciones de arrastrar y soltar si se pulsa la tecla control (por ejemplo) de tal forma que en el evento de hacer clic en una celda, preguntas si la tecla control está activada, (quizás en el evento OnMouseDown del Stringgrid) si está pulsada, pones DragMode a dmAutomatic y permites el arrastrar y soltar, si no está pulsada, pones DragMode a dmManual y dejas editar la celda.

Código Delphi [-]
procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if ssCtrl in Shift then
    DragMode := dmAutomatic
  else
    DragMode := dmManual ;

end;

Espero te sirva

[miguel_fr]

Gracias Lepe, por tus ideas, en cuanto tenga tiempo me pongo a ver esas chances.
Nuevamente GRacias

[jachguate]

Te aconsejo leer la ayuda del método BeginDrag del TControl.

En el evento OnMouseDown podes llamar a BeginDrag para iniciar el arrastrado cuando DragMode está en dmManual.

Hasta luego.