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;
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;