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;
end;
Bueno muchas gracias por sus sugerencias...