Emular con cxCurrencyEdit evento OnChange de un TEdit. ¿ Alguien sabe ?
 

Hola que tal !!

Alguien sabe como hacer esto pero con cxCurrencyEdit ?

Código Delphi [-]
  
  procedure TForm1.editUnitarioChange(Sender: TObject);
  var
    Unitario,
    Cantidad: Double;
  begin
    Unitario := StrToFloat(editUnitario.Text);
    Cantidad := StrToFloat(editCantidad.Text);
    editTotal := FloatToStr(Cantidad * Unitario);
  end;

La diferencia del cxCurrencyEdit con el TEdit es que el cxCurrencyEdit no tiene el evento OnChange, en cambio tiene el evento OnEditValueChange pero no se comporta igual que el evento OnChange del TEdit.

El evento OnChange del TEdit me permite modificar otras TEdit al momento que yo voy escribiendo algo en el TEdit, lo cual la verdad no lo he logrado hacer con el cxCurrencyEdit, si alguien me puede dar una ayudita pos muy agradecido :).


Encontré el siguiente codigo en la página de devexpress https://www.devexpress.com/Support/C...aspx?kbid=A571 pero la verdad no funciona no actualiza a menos que le de un enter a la celda despues de haberla editado, lo cual no es necesario con el evento OnChange del TEdit...

Código Delphi [-]
procedure TYour_Form.Your_ColumnPropertiesEditValueChanged(
  Sender: TObject);
var
  Edit: TcxCustomEdit;
  NewValue: Variant;
begin
  Edit := Sender as TcxCustomEdit;
  NewValue := Edit.EditValue;
  // Your other code is here...
end;

Bueno muchas gracias por sus sugerencias... :D

Ya probaste con el evento Properties.OnChange?


Saludos...

Edito: me equivoqué al decir que el cxCurrencyEdit no tiene el evento OnChange ya veo que si lo tiene :)

y si maeyanes ya probé ese evento el properties.OnChange y hago algo como lo que me encontré en devExpress, algo como esto, pero no me funciona como el ejemplo que puse de los EditText

EDITO: pero no me funciona como el ejemplo que puse de los EditText, quise decir que este ejemplo si funciona correctamente pero no asi el del Properties.OnChange del cxCurrencyEdit

en el evento on change

Código Delphi [-]
procedure DBColumnUnitarioPropertiesChange(Sender: TObject);
var
  Celda: TCxTextEdit;
  Valor: String;
begin
  Celda := Sender as TCxTextEdit;
  Valor := Celda.Text;
  DBColumnUnitarioNeto.EditValue := Valor;
end;

cuando edito en el OnChange de un TEdit lo que voy escribiendo se va reflejando en el otro TEdit

ejemplo..

Código Delphi [-]
procedure TEdit1Change(Sender:TObject);
begin
  TEdit2.Text := TEdit1.Text;
end;

lo que yo vaya escribiendo por ejemplo si escribí en el TEdit1 '123', el mismo '123' se refleja en el TEdit2, en cambio si hago lo mismo en el Properties.OnChange del cxCurrencyEdit lo que yo escriba no se refleja en la otra columna por ejemplo si yo escribo, en el OnChange de DBColumnUnitario la cadena '123', solo se refleja en el DBColumnUnitarioNeto la cadena '3', es como si solo me tomará en cuenta un solo carácter a la vez y solo el último que presioné.