Ayuda Edit's

[calciojar]

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.

[[egostar]]

Empezado por calciojar

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