مسح مربعات التحرير TEdit
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
مسح مربعات التحرير TEdit
بسم الله الرحمن الرحيم
مسح مربعات التحرير 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
djelal- مبرمج مجتهد
- عدد المساهمات : 157
تاريخ التسجيل : 29/04/2015
مواضيع مماثلة
» جعل مربع التحرير TEdit لا يقبل الا الارقام فقط
» انشاء TEdit برمجيا
» رسم مربعات مختلفة الالوان
» رسم اربع مربعات و جملة
» رسم ثمانية مربعات بالوان مختلفة
» انشاء TEdit برمجيا
» رسم مربعات مختلفة الالوان
» رسم اربع مربعات و جملة
» رسم ثمانية مربعات بالوان مختلفة
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى