DELPHI TEdit Up Down vs TSpinBox TUTORIEL

Ce tutoriel est un exemple simple. Comment utiliser un TEdit up down avec 2 TEditButton et d'incrémenter ou de décrémenter de 1 notre TEdit.

CONCEPTION DE NOTRE FORM :

Une fois DELPHI lancé, créer une nouvelle application multi périférique - Delphi.
Placer sur la Form un composant TEdit, un composant TSpinBox.

APPECU DE LA FORM :
StringGrid Delphi
Inspecteur D'objet :

Edit1 : Text : "0"
Dans inspecteur d'objets de Tedit1 cliquer sur "Ajouter TEditButton".
TEditButton1 : Text : "+".
Dans inspecteur d'objets de Tedit1 cliquer sur "Ajouter TEditButton".
TEditButton2 : Text : "-".

PARTIE CODE :

Nous allons voir en détail comment incrémenter ou de décrémenter de 1 notre TEdit1.

EditButton1Click :
En mode conception Inspecteurs d'objets -> Événement -> Double clic sur "EditButton1". Permet d'incrémenter de 1 à notre Tedit1

procedure TForm1.EditButton1Click(Sender: TObject);
var n : integer;
begin
 n:= StrToInt(Edit1.Text);
 n := n +1;
 Edit1.Text := IntToStr(n);
end;
EditButton2Click :
En mode conception Inspecteurs d'objets -> Événement -> Double clic sur "EditButton2". Permet de décrémenter de 1 à notre Tedit1

procedure TForm1.EditButton2Click(Sender: TObject);
var n : integer;
begin
 n:= StrToInt(Edit1.Text);
 n := n -1;
 Edit1.Text := IntToStr(n);
end;
SPINBOX :

Le composant TSpinBox FMX est une zone d'édition spéciale qui peut afficher uniquement des valeurs numériques et qui est dotée des boutons Augmenter et Réduire pour incrémenter ou décrémenter la valeur affichée. Pour Delphi VCL utiliser SpinEdit.