Fórum Dar Foco em célula do DBGrid #363605

with DMVendas do
begin
cdsProdutos.Close;
cdsProdutos.Params[0].AsString := DBGrid1.SelectedField.Text;
cdsProdutos.Open;
if cdsProdutos.RecordCount < 1 then
begin
Minha_MessageDlg(´Referência não encontrada!´, mtError, [mbOK], 0, 0, True);
end
else
begin
dbGrid1.SetFocus; ///Deste modo
DBGrid1.SelectedIndex:= 0; //Vai p/ primeria celula
end
end;
end;