Ver Mensaje Individual
  #10  
Antiguo 09-09-2004
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
De acuerdo con jachguate. El evento más adecuado es OnSetText que está precisamente para eso, para hacer conversiones del dato que se guardará en la tabla.

Claro que lo ideal es que el DBGrid tuviera la propiedad CharCase al igual que los Edits de manera que el texto aparezca en mayúsculas al momento de irlo escribiendo.

Pero podemos lograrlo con un par de trucos sucios:

Código Delphi [-]
interface

type
  (* Declarar esto antes de la declaración del formulario *)
  TDBGrid = class(DBGrids.TDBGrid)
  protected
    function CreateEditor: TInplaceEdit; override;
  end;

  TForm1 = class(TForm)
    ...
  end;

  THackEdit = class(TCustomEdit);

implementation

function TDBGrid.CreateEditor: TInplaceEdit;
begin
  Result := inherited CreateEditor;
  THackEdit(Result).CharCase := ecUpperCase;
end;

// Saludos

Última edición por roman fecha: 15-06-2005 a las 19:00:17.
Responder Con Cita