آژانس هواپیماییexchanging

تغییر رنگ تعداد زیادی label

شروع موضوع توسط smt ‏28 دسامبر 2005 در انجمن Delphi

  1. smt

    smt کاربر تازه وارد

    تاریخ عضویت:
    ‏11 دسامبر 2004
    نوشته ها:
    35
    تشکر شده:
    0
    با سلام
    اگر من روی یک form مثلاً 100 تا label داشته باشم و بخواهم در حین برنامه رنگ همه آنها را مثلاً آبی کنم آیا باید کد
    label1.caption:=clred;​
    را برای تک تک آنها بنویسم یا می شود با یک کد رنگ همه آنها را با هم تغییر دهم ؟
    با تشکر
     
  2. peiman

    peiman Registered User

    تاریخ عضویت:
    ‏23 فوریه 2003
    نوشته ها:
    1,544
    تشکر شده:
    20
    اره ولی بجای ;label1.caption:=clred بنویس ;label1.Color:=clred
     
  3. Amir Lajevardi

    Amir Lajevardi کاربر تازه وارد

    تاریخ عضویت:
    ‏7 سپتامبر 2005
    نوشته ها:
    60
    تشکر شده:
    0
    محل سکونت:
    Tehran

    سلام
    خير نيازي نيست بصورت تك تك براشون كد بنويسين
    ميتونيد از خصوصيت وراثت در دلفي استفاده كنيد.
    به اينصورت كه خصوصيت Parent Font رو در تمامي Label ها در حالت True قرار دهيد و سپس توسط دستور زير رنگ آنها را در زمان اجرا تغيير دهيد:
    بطور مثال شما ميخواهيد با فشار يك دكمه تمامي label ها به رنگ سبز در بيايند بايد از كد زير استفاده كنيد:

    کد:
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      form1.Font.Color:=clgreen;
    end;
    
     
  4. peiman

    peiman Registered User

    تاریخ عضویت:
    ‏23 فوریه 2003
    نوشته ها:
    1,544
    تشکر شده:
    20
    البته با این کار تمام بقیه اجزایی که Parent Font شون رو true کردی هم تغییر رنگ میدن ولی خوب از تکی تکی عوض کردن بهتره
     
  5. smt

    smt کاربر تازه وارد

    تاریخ عضویت:
    ‏11 دسامبر 2004
    نوشته ها:
    35
    تشکر شده:
    0
    با تشکر از راهنماییهایتان
    راه حل خوبی است ولی منظور من از تغییر رنگ یک مثال بود و در حالت کلی می خواهم در برنامه یک سری اعمال را بر روی مثلاً label1 تا label100 انجام دهم و لازم نباشد این سری کدها را برای تک تک آنها بنویسم .
    با تشکر
     
  6. peiman

    peiman Registered User

    تاریخ عضویت:
    ‏23 فوریه 2003
    نوشته ها:
    1,544
    تشکر شده:
    20
    اینو نگاه کن
     

    فایل های ضمیمه:

  7. appbannerkhuniresbanner