+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف ابرمج زر يأخذ قيمة وينفذ إجراء ثم يأخذ قيمة أخرى (/showthread.php?tid=7665)
كيف ابرمج زر يأخذ قيمة وينفذ إجراء ثم يأخذ قيمة أخرى - fraydoo1 - 28-03-2016
كيف ابرمج زر حيث يأخذ القيمة 'Ajouter' وينفذ الإجراء ثم يأخذ القيمة 'Enregistrer' وينفذ إجراء آخر
RE: Bitbtn بإجرائين - Agmcz - 28-03-2016
هذا حل
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;
RE: Bitbtn بإجرائين - fraydoo1 - 28-03-2016
مشكور يا بطل تسلم