Ver Mensaje Individual
  #1  
Antiguo 06-06-2007
calogero calogero is offline
Miembro
 
Registrado: oct 2006
Ubicación: Los Mochis, Sinaloa, México
Posts: 76
Reputación: 18
calogero Va por buen camino
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...
__________________
La conquista mas grande de un hombre es la conquista de el mismo.
Responder Con Cita