PDA

Ver la Versión Completa : Función para cambiar el valor de un TLMDMaskedit


wendy torres
19-01-2018, 22:41:13
Hola tengo una duda y ojala puedan ayudarme soy nueva en Delphi y novata en programación..

Tengo 3 componentes
*2 TLMDMaskedit
*1 TDBLookupComboBox

Un TLMDMaskedit es para CANTIDAD y el otro es para IMPORTE, lo que quiero hacer es que al seleccionar algo del TDBLookupComboBox, haga la operación que se le indique (bueno eso ya lo hace) pero quiero hacer una función para que cuando cambie el valor de CANTIDAD el IMPORTE también lo haga, pero no se como hacerla o que hacer.

Aquí les dejó mi código hasta ahora.


procedure Tfrm.cboCPClick(Sender: TObject);
var
PD, SB : CURRENCY;
Cantidad : integer;
begin
CASE cboCP.KeyValue OF
14: begin
txtCant.Text:=intToStr(1);
Cantidad:=txtCant.AsInteger;
PD:= SB*.20*Cantidad;
txtImp.Text:=CurrToStr(PD);
end;
end;

Espero que alguien me pueda ayudar y yo me haya explicado en mi duda, muchas gracias e antemano!