مسح مربعات التحرير TEdit

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

مسح مربعات التحرير TEdit

مُساهمة  alla23 في الخميس نوفمبر 26, 2015 8:44 pm

بسم الله الرحمن الرحيم

مسح مربعات التحرير TEdit

الرمز:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
 for i := 0 to ComponentCount - 1 do
 if (Components[i] is TEdit) then
   //if Components[i].Name <> 'Edit1' then
   if Components[i] <> Edit1 then
     TEdit(Components[i]).Clear;
end;

اذا اردنا استثناء عدة عناصر من عملية المسح  نستعمل الامر and مثال

الرمز:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
 for i := 0 to ComponentCount - 1 do
 if (Components[i] is TEdit) then
   if(Components[i] <> Edit1)and(Components[i] <> Edit20)and
   (Components[i] <> Edit50)and(Components[i] <> Edit17)then
     TEdit(Components[i]).Clear;
   //if Components[i].Name <> 'Edit1' then
end

alla23
عضو ذهبي
عضو ذهبي

عدد المساهمات : 66
نقاط : 182
تاريخ التسجيل : 26/05/2013
الموقع : http://delph.forumalgerie.net

http://delph.forumalgerie.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى