Foros Club Delphi - Ayuda Edit's

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Ayuda Edit's (https://www.clubdelphi.com/foros/showthread.php?t=53394)

Buenas Noches.

Gracias por adelantado en lo que me puedan colaborar.

lo siguiente:

Tengo 3 Edit y quiero simular algo asi como: (Ejemplo)

Edit1 : Total a Pagar: ##### -----> Total de una factura
Edit2 : Paga: ##### --------> Lo que el cliente entrega al cajero.
Edit3 : Cambio: ##### --> lo que el cajero le devuelve a cliente si lo hay.

Quiero que al acabar de digitar el valor que el cliente paga (Paga), pueda teclear (Enter) y automaticamente me de el cambio si existe en el Edit3 (Cambio).

Muchisimas gracias en lo que me puedan colaborar.

Cita:

Empezado por calciojar (Mensaje 267122)

Quiero que al acabar de digitar el valor que el cliente paga (Paga), pueda teclear (Enter) y automaticamente me de el cambio si existe en el Edit3 (Cambio).

Puedes usar el evento OnKeyDown del Edit2

Código Delphi [-]procedure TForm1.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then begin
     if StrtoFloat(Edit1.Text) >= StrtoFloat(Edit2.Text) then //Validas que Edit1 es Mayor o Igual que Edit2
        Edit3.Text := Format('%m',[StrtoFloat(Edit1.Text) - StrtoFloat(Edit2.Text)]);
  end;
end;

Salud OS