Ver Mensaje Individual
  #5  
Antiguo Hace 1 Semana
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 9.875
Reputación: 27
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.
Cita:
Empezado por The Cid James Ver Mensaje
...
Claro algo asi pero que cambie cuando vaya editando el edit no en boton
Entonces sólo debes situar el mismo código en el evento OnChange de todos los Edits, por ejemplo:
Código Delphi [-]
...
(* Asigno los eventos en tiempo de ejecución para clarificar el ejemplo,
    pero te resultará mas simple hacerlo en tiempo de diseño *)
procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.OnChange := EditsChange;
  Edit2.OnChange := EditsChange;
  Edit3.OnChange := EditsChange;
  Edit4.OnChange := EditsChange;
  //...
end;

procedure TForm1.EditsChange(Sender: TObject);
var
  amount: Integer;
begin
  amount := StrToIntDef(Edit1.Text, 0) +      //  1 u$S
            StrToIntDef(Edit2.Text, 0) *  5 + //  5 u$s
            StrToIntDef(Edit3.Text, 0) * 10 + // 10 u$s
            StrToIntDef(Edit4.Text, 0) * 20; // + // 20 u$s
            //...
  Self.Caption := IntToStr(amount);
end;

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita