Tab automático após digitar x caracteres em coluna de uma stringgrid

[Tiago Frutuoso CWB]

Fala galera, beleza, estou precisando de uma ajuda.

tenho uma StringGrid, nela tem uma digitação de horas, exemplo, onde E = Entrada e S = Saída

| E-1 | S-2 | E-2 | S-2 |
| 08:00 | 12:00 | 13:00 | 18:00 |

o StringGrid esta com a Mascara de Hora funcionado certinho __:__, neste caso, existe 5 caracteres, mais será digitado somente 4, apos essa digitação ir para a próxima coluna, exemplo

na E-1 digito 08:30, apos o ultimo zero, ir para a coluna S-1 e assim por diante.

Tem como fazer isso, eu conhecia o Length, que faz a contagem de caracteres, apos essa contagem, faz a tabulação, ja no Delphi não achei nada sobre.

Att,

[shipool]

if Length(trim(repalcestr(replacestr(grd.cells[grd.col,grd.row], '_',''),':',''))) = 5 then  grd.col := grd.col + 1;

Não sei direito como esta sua mascara, entrao tirei os espaços com TRIM e os "_" e ":" com replacestr

 

Veja se funciona.

[Tiago Frutuoso CWB]

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;