28-03-2016, 11:07 PM
كيف ابرمج زر حيث يأخذ القيمة 'Ajouter' وينفذ الإجراء ثم يأخذ القيمة 'Enregistrer' وينفذ إجراء آخر 
28-03-2016, 11:31 PM
هذا حل
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;
28-03-2016, 11:43 PM
مشكور يا بطل تسلم