Fórum UpperCase #220023
11/03/2004
0
Agradeço
Fabio.palm
Curtir tópico
+ 0Posts
12/03/2004
Danielclubedelphi
Gostei + 0
12/03/2004
Rômulo Barros
Gostei + 0
12/03/2004
Fabio.hc
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char); begin if DBGrid1.SelectedField.FieldName=´Codigo_Prod´ THEN Key := AnsiUpperCase(Key)[Length(Key)]; end;
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)