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;

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,

Eu estou tentando fazer com que apos digitas as horas e minutos (08:15) na coluna da DBGrid ele va para a proxima coluna, tipo um maxlength. Esta DBGrid esta vinculada a um TFDTable achei esta Procedure, mais não sei como utilizar: procedure TDBGridInplaceEdit.KeyUp(var Key: Word; Shift: TShiftState); var ALimit: integer; begin with TCustomDBGrid(Grid) do begin ALimit:=GetEditLimit; if (ALimit > 0) and (Length(Self.Text) >= ALimit) then MoveCol(DataToRawColumn(Col), 0); end; inherited KeyUp(Key, Shift); end; alguém sabe como fazer ou pode me ajudar com essa situação, tem esse codigo tambem, mais sem sucesso: procedure TForm1.grdMyGridKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin with grdMyGrid do if (Key=VK_TAB) and (SelectedIndex=3) and (Fields[2].AsString='D') then SelectedIndex := 6; end;