Travar celula do grid...

[robinhocne]

Olá pessoal..estou fazendo o seguinte procedimento no ColExit do DbGrid(DbgGrade)

procedure TFrmNovProdutos.DbgGradeColExit(Sender: TObject);
begin
  for a:=0 to DbgGrade.Columns.count-1 do
     begin

        if DbgGrade.SelectedIndex = 01 then
          begin

            if DbgGrade.Fields[01].AsString = '' then
              begin
                ShowMessage('Código da cor é Obrigatório !');
                exit;
              end;

            ConsultaRegistros('Cores', 'Codigo, Descricao', 'Codigo =' + DbgGrade.Fields[01].AsString);
            if DtmLoja.QryLoja.RecordCount = 0 then
              begin
                DbgGrade.Fields[01].AsString := '';
                ShowMessage('Cor não Cadastrada !');
              end
              else
              begin
                DbgGrade.Fields[01].AsString := StrZero(LeDados('Codigo'), 3);
                DbgGrade.Fields[02].AsString := LeDados('Descricao');
              end;

          end;

     end;

end;

mas eu que assim que quando não for digitado nada nesse campo ele dá a messagem como no procedimento mesmo, mas que volte para a mesma celula sem pular para a proxima celula..como faço isso ?

[Jhonas]

quando não for digitado nada nesse campo ele dá a messagem como no procedimento mesmo, mas que volte para a mesma celula sem pular para a proxima celula..como faço isso ?

Veja se assim funciona

procedure TFrmNovProdutos.DbgGradeColExit(Sender: TObject);
begin
  for a:=0 to DbgGrade.Columns.count-1 do
     begin

        if DbgGrade.SelectedIndex = 1 then
          begin

            if DbgGrade.Fields[1].AsString = '' then
              begin
                ShowMessage('Código da cor é Obrigatório !');
                DbgGrade.SelectedIndex := 1; 
                exit;
              end;

            ConsultaRegistros('Cores', 'Codigo, Descricao', 'Codigo =' + DbgGrade.Fields[01].AsString);
            if DtmLoja.QryLoja.RecordCount = 0 then
              begin
                DbgGrade.Fields[1].AsString := '';
                ShowMessage('Cor não Cadastrada !');
                DbgGrade.SelectedIndex := 1; 
              end
              else
              begin
                DbgGrade.Fields[1].AsString := StrZero(LeDados('Codigo'), 3);
                DbgGrade.Fields[2].AsString := LeDados('Descricao');
              end;

          end;

     end;

end;

abraço

[robinhocne]

quando não for digitado nada nesse campo ele dá a messagem como no procedimento mesmo, mas que volte para a mesma celula sem pular para a proxima celula..como faço isso ?

Veja se assim funciona

procedure TFrmNovProdutos.DbgGradeColExit(Sender: TObject);
begin
  for a:=0 to DbgGrade.Columns.count-1 do
     begin

        if DbgGrade.SelectedIndex = 1 then
          begin

            if DbgGrade.Fields[1].AsString = '' then
              begin
                ShowMessage('Código da cor é Obrigatório !');
                DbgGrade.SelectedIndex := 1; 
                exit;
              end;

            ConsultaRegistros('Cores', 'Codigo, Descricao', 'Codigo =' + DbgGrade.Fields[01].AsString);
            if DtmLoja.QryLoja.RecordCount = 0 then
              begin
                DbgGrade.Fields[1].AsString := '';
                ShowMessage('Cor não Cadastrada !');
                DbgGrade.SelectedIndex := 1; 
              end
              else
              begin
                DbgGrade.Fields[1].AsString := StrZero(LeDados('Codigo'), 3);
                DbgGrade.Fields[2].AsString := LeDados('Descricao');
              end;

          end;

     end;

end;

abraço

Hum...não deu certo...ele continua pulando para a próxima celula

[Jhonas]

Voce está usando o evento OnColExit ... o certo seria o evento OnKeyPress

exemplo:

Modifique para o seu uso

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
   if (Key = #9) then
      if not (ActiveControl is TDBGrid) then
         begin
            Key := #0;
            Perform(WM_NEXTDLGCTL, 0, 0);
         end
      else if (ActiveControl is TDBGrid) then
         with TDBGrid(ActiveControl) do
         if selectedindex < (fieldcount) then
            begin
               //
               DtmLoja.QryLoja.Edit;

               case selectedindex of
                1 : XGrava := XGrava + 1;
                2 : DtmLoja.QryLojaNIVEL.Value := 'C';
                3 : begin
                        // Sem valor fica na mesma celula
                        if DtmLoja.QryLojaTIPO.Value = '' then
                           selectedindex := 3
                    end;
                end;

            end
         else
            begin
               DtmLoja.QryLoja.Post;
               DtmLoja.QryLoja.Last;
               DtmLoja.QryLoja.Append;
               selectedindex := 0;
            end;

end;

abraço