كيف ابرمج زر يأخذ قيمة وينفذ إجراء ثم يأخذ قيمة أخرى

[fraydoo1]

كيف ابرمج زر حيث يأخذ القيمة 'Ajouter' وينفذ الإجراء ثم يأخذ القيمة 'Enregistrer' وينفذ إجراء آخر

[Agmcz]

هذا حل

PHP كود :

procedure pAjouter;
begin
  {code}
end;

procedure pEnregistrer;
begin
  {code}
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  BitBtn1.Caption := 'Ajouter';
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if BitBtn1.Caption = 'Ajouter' then
  begin
    pAjouter;
    BitBtn1.Caption := 'Enregistrer';
  end
  else
  begin
    pEnregistrer;
    BitBtn1.Caption := 'Ajouter';
  end;
end; 


[fraydoo1]

مشكور يا بطل تسلم