Código Delphi [-] procedure TForm1.SpeedButton1Click(Sender: TObject); var ed : TEdit; begin if Self.Focused is TEdit then begin ed := TEdit( Self.Focused ); ed.Text := IntToStr( StrToIntDef( ed.Text, 0) +1 ); end; end;
procedure TForm1.SpeedButton1Click(Sender: TObject); var ed : TEdit; begin if Self.Focused is TEdit then begin ed := TEdit( Self.Focused ); ed.Text := IntToStr( StrToIntDef( ed.Text, 0) +1 ); end; end;