Cita:
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 Edit3.Text := Format('%m',[StrtoFloat(Edit1.Text) - StrtoFloat(Edit2.Text)]);
end;
end;
Salud OS