Tiago Frutuoso CWB
-
Posts
2 -
Cadastrado em
-
Última visita
Tópicos solucionados
-
O post de Tiago Frutuoso CWB em Tab automático após digitar x caracteres em coluna de uma stringgrid foi marcado como solução
Opa, beleza?
Ja consegui resolver o problema, segue abaixo a solução:
Evento OnKeyUp:
var i: Integer; begin With TStringGrid(Sender) do Begin if (Trim(Cells[col, Row]).Length >= 5) or (Key = VK_RETURN) then begin for i := col to 13 do if (ColWidths[i + 1] <> 0) and (ColWidths[i + 1] in [0, 1, 13] = False) then Begin col := i + 1; Break; End; if col = 13 then Begin Row := Row + 1; col := 2; End; end; End; end;
Sobre o Clube do Hardware
No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais
Direitos autorais
Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais
