Poner columna de checkbox dentro de dbgrid para hacer multiseleccion

[ginesgomezlopez]

procedure TFSelPartidas.DBGrid1KeyPress(Sender: TObject; var Key: Char);
var posicion: integer;
begin
if (key = ' ') and ( not WEdicion) then // si se pulsa espacio, se añade o borra el id
begin
posicion:= memo1.LineS.IndexOf(QTarifas.FieldByName('IdTarifa').AsString);
if posicion < 0 then Memo1.Lines.Add(QTarifas.FieldByName('IdTarifa').AsString)
else Memo1.Lines.Delete(posicion);
DBGrid1.Repaint;
end;
if not WEdicion then
StatusBar1.PAnels[0].Text:= 'Seleccionadas '+inttoStr(Memo1.lines.Count)+' partidas';

end;

Hola quiero seleccionar varias filas indistintamente de su orden dentro de un DBGrid, lo mismo que se explica en este ejemplo, pero la me da error en "(not WEdicion), a qué puede ser debido

[[fjcg02]]

Hola,
ha llovido mucho y no me acuerdo qué demonios hacía el código exactamente.

Supongo que WEdicion es una variable del formulario que indica si está en edición el dataset o no.

Podrías sustituirlo por algo parecido a
and ( not estadoEdicion in DBGrid.Datasource.Dataset.Status )

ó

and ( not estadoEdicion in TDBGrid(Sender).Datasource.Dataset.Status )

siendo estadoEdicion el estado de edición del TDBGrid ( creo que es stEdit) y siendo DBGrid el grid que estás utilizando.

Siento no poder darte más pistas, pero mi tiempo es algo limitado, y ya no tengo delphi instalado en mi equipo.

En el foro y en la ayuda de delphi puedes encontrar información al respecto.

Un saludo y suerte

[Casimiro Notevi]

Empezado por ginesgomezlopez

..

Recuerda poner los tags al código fuente, ejemplo:

[ginesgomezlopez]

Perdona Casimiro, lo hice pero no sé por qué no salió.

Gracias Fjcg02, los sustituí por

Código Delphi [-]
dbgrid1.EditorMode=false

y funciona a la perfección, un millón de gracias

Por cierto, no te gusta Delphi? si no es indiscrección.

[[fjcg02]]

Empezado por ginesgomezlopez

Por cierto, no te gusta Delphi? si no es indiscrección.

No me parece una indiscrección...

No uso delphi porque en principio en el trabajo no lo utilizamos, y en casa pues ando haciendo otras cosillas. Compré un mac y para instalar Delphi tendría que instalar una máquina virtual. Con el poco tiempo que tengo, y dado que como ya te he dicho no lo utilizo en estos momentos, pues no quiero perder ni un minuto en hacer la instalación.

Si algún día tengo oportunidad de utilizarlo de nuevo, lo instalaré sin problemas. De hecho me gusta, es el entorno de programación que más controlo y que más me gusta.

Un saludo