اود حذف button في run time ، قد حاولت باستخدام
Tbutton(sender).destroy;
لكن دائما يعطيني خطأ
كيفيه حذف button في Run Time
مغلق
procedure TForm1.FormClick(Sender: TObject); var i,m:integer; begin for i:=ComponentCount-1 downto 0 do begin if Components is TButton then if Components.Name='Button1' then Components.Free end; end;
يا اخي لماذا لا تبحث في الhelp :rolleyes:
ما اذا اردت حذف جميع الازرار يمكن ان تستغني عن جملة if الثانية
تم تعديل هذه المشاركة بواسطة romanof في 19 مارس 2006 في 16:13
أضاعوني وأي فتى أضاعـوا * * * ليـوم كــريهـة وســـداد ثغــــر
وخـــــلونـي ومعتـرك المنايـا * * * وقد شـــرعوا أسنــتهم لنحـري
كأني لم أكــــــن فيهـم وسيطـا * * * ولم تك نســبتي في آل عمــرو
أجرر في الجـــوامع كـل يـوم * * * ألا لله مظــــلمتـي وهـصـــري
عسى الملك المجيب لمن دعاه * * * سينجيني فيعلم كيــف شكـري
فأجـــزي بالكرامـة أهـل ودي * * * وأجزي بالضـغينة أهل ضري
هذا الموضوع مغلق.