Foco a dbgrid

jafera · #1 08-11-2013

Buenas de nuevo compañeros.

Os quiero comentar un problema que tengo con el foco a un dbgrid (satandart de la paleta data controls) y que llevo dos días de craneo sin encontrar la solución.
Se trata de que al entrar en el susodicho dbgrid que solo tiene dos columnas, el foco me vaya a una columna determinada ya que la otra esta puesta como solo lectura para que el usuario no me la modifique.
Este dbgrid esta dentro de un pagecontrol y al entrar el mismo pongo el siguiente código:

Código Delphi [-] 
procedure TF_EntradaPuntuacions.TabSheet1Enter(Sender: TObject);
begin
        DBGrid1.SelectedField.FieldName:='Volta_1PUNTS';
end;

Al entrar me da error de que no se puede realizar la operacion en un dataset abierto.

Para acceder a este formulario hago la llamada siguiente:

Código Delphi [-] 
procedure TF_EntradaPuntuacions.Edit1Exit(Sender: TObject);
var v:string;
begin
        SQLInscrits.Close;
        SQLInscrits.ParamByName('CURSA').AsInteger:=F_ModulDades.CursaID_CURSA.Value;
        SQLInscrits.ParamByName('DORSAL').AsInteger:=StrToInt(Edit1.Text);
        SQLInscrits.Open;
        v:=InputBox('Volta?', 'Volta','');
        if StrToInt(v)>F_ModulDades.CursaNUM_VOLTES.Value then
        begin
                ShowMessage('Aquesta cursa nomes té '+IntToStr(F_ModulDades.CursaNUM_VOLTES.Value)+' voltes');
                repeat
                        v:=InputBox('Volta?', 'Volta','');
                until
                StrToInt(v)<=F_ModulDades.CursaNUM_VOLTES.Value;
                begin
                        Volta_1.Close;
                        Volta_1.ParamByName('CURSA').AsInteger:=F_ModulDades.CursaID_CURSA.Value;
                        Volta_1.ParamByName('DORSAL').AsInteger:=StrToInt(Edit1.Text);
                        Volta_1.ParamByName('VOLTA').AsInteger:=1;
                        Volta_1.Open;
                        Volta_2.Close;
                        Volta_2.ParamByName('CURSA').AsInteger:=F_ModulDades.CursaID_CURSA.Value;
                        Volta_2.ParamByName('DORSAL').AsInteger:=StrToInt(Edit1.Text);
                        Volta_2.ParamByName('VOLTA').AsInteger:=2;
                        Volta_2.Open;
                        Volta_3.Close;
                        Volta_3.ParamByName('CURSA').AsInteger:=F_ModulDades.CursaID_CURSA.Value;
                        Volta_3.ParamByName('DORSAL').AsInteger:=StrToInt(Edit1.Text);
                        Volta_3.ParamByName('VOLTA').AsInteger:=3;
                        Volta_3.Open;
                        Volta_4.Close;
                        Volta_4.ParamByName('CURSA').AsInteger:=F_ModulDades.CursaID_CURSA.Value;
                        Volta_4.ParamByName('DORSAL').AsInteger:=StrToInt(Edit1.Text);
                        Volta_4.ParamByName('VOLTA').AsInteger:=4;
                        Volta_4.Open;
                        Volta_5.Close;
                        Volta_5.ParamByName('CURSA').AsInteger:=F_ModulDades.CursaID_CURSA.Value;
                        Volta_5.ParamByName('DORSAL').AsInteger:=StrToInt(Edit1.Text);
                        Volta_5.ParamByName('VOLTA').AsInteger:=5;
                        Volta_5.Open;
                        if StrToInt(v)=1 then
                        begin
                                PageControl1.ActivePage:=TabSheet1;
                                DBGrid1.SetFocus;
                                Volta_1.Edit;
                        end;
                        if StrToInt(v)=2 then
                        begin
                                PageControl1.ActivePage:=TabSheet2;
                                DBGrid2.SetFocus;
                                Volta_2.Edit;
                        end;
                        if StrToInt(v)=3 then
                        begin
                                PageControl1.ActivePage:=TabSheet3;
                                DBGrid3.SetFocus;
                                Volta_3.Edit;
                        end;
                        if StrToInt(v)=4 then
                        begin
                                PageControl1.ActivePage:=TabSheet4;
                                DBGrid4.SetFocus;
                                Volta_4.Edit;
                        end;
                        if StrToInt(v)=5 then
                        begin
                                PageControl1.ActivePage:=TabSheet5;
                                DBGrid5.SetFocus;
                                Volta_5.Edit;
                        end;
                end;
        end
        else
        begin
                Volta_1.Close;
                Volta_1.ParamByName('CURSA').AsInteger:=F_ModulDades.CursaID_CURSA.Value;
                Volta_1.ParamByName('DORSAL').AsInteger:=StrToInt(Edit1.Text);
                Volta_1.Open;
                Volta_2.Close;
                Volta_2.ParamByName('CURSA').AsInteger:=F_ModulDades.CursaID_CURSA.Value;
                Volta_2.ParamByName('DORSAL').AsInteger:=StrToInt(Edit1.Text);
                Volta_2.Open;
                Volta_3.Close;
                Volta_3.ParamByName('CURSA').AsInteger:=F_ModulDades.CursaID_CURSA.Value;
                Volta_3.ParamByName('DORSAL').AsInteger:=StrToInt(Edit1.Text);
                Volta_3.Open;
                Volta_4.Close;
                Volta_4.ParamByName('CURSA').AsInteger:=F_ModulDades.CursaID_CURSA.Value;
                Volta_4.ParamByName('DORSAL').AsInteger:=StrToInt(Edit1.Text);
                Volta_4.Open;
                Volta_5.Close;
                Volta_5.ParamByName('CURSA').AsInteger:=F_ModulDades.CursaID_CURSA.Value;
                Volta_5.ParamByName('DORSAL').AsInteger:=StrToInt(Edit1.Text);
                Volta_5.Open;
                if StrToInt(v)=1 then
                begin
                        PageControl1.ActivePage:=TabSheet1;
                        DBGrid1.SetFocus;
                        Volta_1.Edit;
                end;
                if StrToInt(v)=2 then
                begin
                        PageControl1.ActivePage:=TabSheet2;
                        DBGrid2.SetFocus;
                        Volta_2.Edit;
                end;
                if StrToInt(v)=3 then
                begin
                        PageControl1.ActivePage:=TabSheet3;
                        DBGrid3.SetFocus;
                        Volta_3.Edit;
                end;
                if StrToInt(v)=4 then
                begin
                        PageControl1.ActivePage:=TabSheet4;
                        DBGrid4.SetFocus;
                        Volta_4.Edit;
                end;
                if StrToInt(v)=5 then
                begin
                        PageControl1.ActivePage:=TabSheet5;
                        DBGrid5.SetFocus;
                        Volta_5.Edit;
                end;
        end;
end;

En el edit1 coloco el dorsal del corredor a buscar y compruebo que el numero de vueltas no sea superior al estipulado, de ahí la comprobación "until".
Otra cosa que no se es si esta es la forma más ortodoxa de realizar la comprobación ya que duplico el código.

En fin si alguien me sugiere algo pues muchisimas gracias.

Saludos

Josep

[newtron] · #2 08-11-2013

Hola, prueba con esto

Código Delphi [-]DBGrid1.Columns[1].Field.FocusControl;

Saludos

jafera · #3 08-11-2013

Gracias newtron.

Así no da error, pero el primer registro me queda como bloqueado y no puedo acceder a el, tengo que pasar al segundo y luego regresar al primero.

Saludos

ecfisa · #4 08-11-2013

Hola Josep.

Otra opción:

Código Delphi [-]procedure TF_EntradaPuntuacions.PageControl1Change(Sender: TObject);
begin
  if PageControl1.ActivePage = TabSheet1 then
    with DBGrid1 do
    begin
      SetFocus;
      SelectedField :=  DataSource.DataSet.FieldByName('Volta_1PUNTS');
      EditorMode := True; // (si deseas que quede listo para editar)
    end;
end;

Saludos

jafera · #5 08-11-2013

Gracias Ecfisa.

No me funciona, sigo con el problema, ahora me dice Volta_1PUNTS filed not found, cierro el mensaje y puedo continuar el trabajo.
Si quito Volta_1 y dejo PUNTS solo, se queda como antes con el primer registro bloqueado.

Seguimos intentando

Saludos

Josep

ecfisa · #6 08-11-2013

Cita:

Empezado por jafera

...me dice Volta_1PUNTS field not found,

Hola Josep.

Ese error indica que no existe un campo llamado "Volta_1PUNTS", yo sólo lo tomé de tu primer mensaje a modo de ejemplo, me es imposible saber el nombre que le han dado.

Revisa que nombre tiene el mismo en la bd y cambia a "Volta_1PUNTS" por el nombre correcto. Si deseas visualizarlos para asegurarte, agrega un TListBox al form y este código en el evento OnClick de un TButton:

Código Delphi [-]procedure TF_EntradaPuntuacions.btnShowFieldNamesClick(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to DBGrid1.Columns.Count-1 do
    ListBox1.Items.Add(Format('Column: %d - FieldName: %s',
      [i, DBGrid1.Columns[i].FieldName]));
end;

Saludos

jafera · #7 09-11-2013

Hola de nuevo.

El campo se llama PUNTS a secas, ya lo he comprobado y colocando el nombre así 'PUNTS', el resultado es lo que me pasaba antes, el foco se va a la columna 1 (campo PUNTS) pero se queda congelado, adjunto imagen, luego hago click en cualquier campo del grid y ya puedo acceder a la columna en cuestión.
Lo que me gustaría conseguir es que una vez seleccionados los criterios dorsal y vuelta el cursor se colocara directamente en el grid y me dejara entrar los puntos directamente, por automatizar el sistema.

Saludos y gracias a todos

Josep

ecfisa · #8 09-11-2013

Hola Josep.

Ahora que ya corregiste el nombre del campo, no sé que puede estar sucediendo... El código lo he probado y funciona correctamente, posicionándose en la columna que se le indique y listo para editar.

Lamentablemente la imagen que subiste es demasiado pequeña como para apreciar lo que mencionas.

Saludos

jafera · #9 18-11-2013

Gracias a todos.

Lo solucione de esta forma:

Código Delphi [-] 
if StrToInt(v)=1 then
begin
        PageControl1.ActivePage:=TabSheet1;
        DBGrid1.SetFocus;
        DBGrid1.SelectedField:=Volta_1PUNTS;
end;

No pude responder antes por falta de tiempo tal y como he comentado en otro hilo.

Saludos

Josep

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Pasar el foco a la primer columna del DBGrid...	JairoC	Varios	2	19-10-2011 00:05:07
Como quitar el foco de un DBGRID	NeoNew	Varios	4	04-04-2009 01:45:07
Pasando el foco de un DBGrid	RoyTan	Conexión con bases de datos	4	11-01-2008 20:54:15
Controlar el foco dentro de un DBGrid	chileno	Conexión con bases de datos	6	19-09-2006 17:15:31
Foco en DBGRID DE LAS RXLIB 2.75	serhasae	Varios	2	26-06-2004 16:05:41