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.
Une fois DELPHI lancé, créer une nouvelle application multi périférique - Delphi.
Placer sur la Form un composant TEdit, un composant TSpinBox.
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 : "-".
Nous allons voir en détail comment incrémenter ou de décré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;
procedure TForm1.EditButton2Click(Sender: TObject);
var n : integer;
begin
n:= StrToInt(Edit1.Text);
n := n -1;
Edit1.Text := IntToStr(n);
end;
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.