Tema: Ayuda Edit's
Ver Mensaje Individual
  #2  
Antiguo 20-02-2008
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.572
Reputación: 27
egostar Va camino a la fama
Cita:
Empezado por calciojar Ver Mensaje
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
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita