Hola.
Cita:
Empezado por The Cid James
...
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
[-]
...
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) + StrToIntDef(Edit2.Text, 0) * 5 + StrToIntDef(Edit3.Text, 0) * 10 + StrToIntDef(Edit4.Text, 0) * 20; Self.Caption := IntToStr(amount);
end;
Saludos