Ver Mensaje Individual
  #10  
Antiguo 18-07-2017
Avatar de movorack
[movorack] movorack is offline
Miguel A. Valero
 
Registrado: feb 2007
Ubicación: Bogotá - Colombia
Posts: 1.346
Reputación: 20
movorack Va camino a la famamovorack Va camino a la fama
Cita:
Empezado por Soa Pelaez Ver Mensaje
lo que necesito es que a medida que vaya digitando la variable texto valga lo mismo que escribí en la celda... Es un buen indicio la manera en que lo planteas pero aún falta esa cosa y quedaría como lo necesito.
Eso es porque estás revisando el texto en el OnKeyPress. Antes de que al texto se le agregue el caracter que estás digitando.

Puedes sumar el caracter al texto actual y así obtener el texto completo.

Código Delphi [-]
procedure TForm3.DBGrid1KeyPress(Sender: TObject; var Key: Char);
  var
    lStTemp: String;
begin
  if (TDBGrid(Sender).SelectedField.FieldName = 'Field1')
    and (TDBGrid(Sender).ControlCount > 0)
    and (TDBGrid(Sender).Controls[0] is TInplaceEdit)
  then
  begin
    lStTemp := TEdit(TDBGrid(Sender).Controls[0]).Text + Key;

    ///Se procesa el texto para validar el formato.
    ///Insert your amazing code here
  end;
end;

o puedes manejarlo cuando ya el texto está completo en el OnKeyUp

Código Delphi [-]
procedure TForm3.DBGrid1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  var
    lStTemp: String;
begin
  if (TDBGrid(Sender).SelectedField.FieldName = 'Field1')
    and (TDBGrid(Sender).ControlCount > 0)
    and (TDBGrid(Sender).Controls[0] is TInplaceEdit)
  then
  begin
    lStTemp := TEdit(TDBGrid(Sender).Controls[0]).Text;

    ///Se procesa el texto para validar el formato.
    ///Insert your amazing code here
  end;
end;
__________________
Buena caza y buen remar... http://mivaler.blogspot.com
Responder Con Cita