چطور ميتونم يك edit رو به صورت چشمك زن در

سلام
چطور ميتونم يك edit رو به صورت چشمك زن_ يا اينكه تو يه بازه زماني از رنگي به رنگ ديگه تغيير كنه_ در بيارم ( اين كار رو واسه اخطار دادن به كاربر ميخوام انجام بدم)
پيشاپيش ممنون

خوب رنگ فونت رو میخواهی تغییر بدی یا رنگ خودش رو؟؟

با سلام

با استفاده از کمپوننت Timer خاصیت Color را تغییر بده.

یک تایمر بر روی فرم قرار بده و مقدار زیر را برایش بنویس

procedure TForm1.Timer1Timer(Sender: TObject);
begin
edit1.Color:=rgb(random(5000),random(5000),random( 5000));
edit1.font.Color:=rgb(random(5000),random(5000),ra ndom(5000));
end;

سلام
با تشكر از توجه دوستان محترم

نقل قول:

---

نوشته شده توسط soldier [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

خوب رنگ فونت رو میخواهی تغییر بدی یا رنگ خودش رو؟؟

---

رنگ خودش، ميخوام وقتي متنش يه چيز خاصي (مثل كلمه error ) شد مرتب بين دو رنگ مثلا سفيد و قرمر تغيير كنه تا به كاربر اخطار بده

نقل قول:

---

نوشته شده توسط Mavix [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

با سلام

با استفاده از کمپوننت Timer خاصیت Color را تغییر بده.

---

نقل قول:

---

نوشته شده توسط as13851365 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

یک تایمر بر روی فرم قرار بده و مقدار زیر را برایش بنویس

procedure TForm1.Timer1Timer(Sender: TObject);
begin
edit1.Color:=rgb(random(5000),random(5000),random( 5000));
edit1.font.Color:=rgb(random(5000),random(5000),ra ndom(5000));
end;

---

ميشه لطفا در مورد rgb و random و اينكه چرا 3 تا random و اون اعداد (5000) يه كم توضيح بديد
خيلي متشكرم از اينكه منو راهنمايي ميكنيد

سلام

خوب پس ما کاری به رنگ خود فونت کاری نداریم.

قبل از توضیحات باید بگم

این کد کاملآ غلط میباشد.

کد:

---

procedure TForm1.Timer1Timer(Sender: TObject);
begin
edit1.Color:=rgb(random(5000),random(5000),random( 5000));
edit1.font.Color:=rgb(random(5000),random(5000),ra ndom(5000));
end;

---

خوب اول برای رنگ ها توی تاپیک "سوالات و آموزش برای مبتدی ها" کاملآ توضیح دادم...

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

بگردید پیداش میکنید . یا بهتره در تاپیک جستجو کنید.


خوب حالا ما یک متغیر از نوع Boolean تعریف میکنیم.

کد:

---

Private
ChangeColor: Boolean;

---

حالا یک تایمر میزاریم که رنگ رو تغییر بده. توی تایمر باید این متغیر عوض بشه...

کد:

---

ChangeColor := not ChangeColor;

---

خوب حالا وقتی این متغیر True بود. رنگ قرمز بشه و وقتی False بود سیاه بشه.

کد:

---

if ChangeColor = True then
Edit1.Color := clRed (rgb(255,0,0))
else
Edit1.Color := clBlack; (rgb(0,0,0))

---

در مورد شرط if هم توی اون تاپیک که گفته بودم کاملآ توضیح داده شده...

توجه داشته باش که اون چیزایی که توی پرانتز نوشتم رو باید حذف کنی. میخواستم فقط نمونه رنگ ها رو بگم...

سوالی یا مشکلی بود در خدمتم...

موفق باشید.

سلام
soldier جان خيلي ممنونم ميرم امتحانش كنم (البته كدي كه as13851365 عزيز هم گذاشتند چيزي جالبي بود ولي متاسفا نه دقيقا اوني نبود كه ميخواستم ولي بازم ازش ممنونم)

سلام

از as13851365 هم تشکر میکنیم.

اما مشکلی که کدش داره. هم رنگ فونت رو تغییر میده و هم رنگ خود ایدت باکس رو...

رنگش هم مشکل داره. ما نهایت رنگی که داریم . 255,255,255 هست نه 5000

در ضمن این به صورت شانسی رنگ تغییر میکنه. با اینکه شما می خواهید رنگ چشمک بزنه...


اگر کدی که نوشتم کد مورد نظرتون نیست بیشتر توضیح بدید...

منتظر خبرت هستم...
موفق باشید

soldier جان واقعا ازت ممنونم
كد شما هموني بود كه من ميخواستم
بازم متشكرم

براي چشمك زدن label بهتره در تايمر، visible:=not(visible)
براي چشمك زدن متن edit بهتره در تايمر،edit1.font.color:=edit1.color كنيد و دوباره edit1.font.color:=clblack
; كنيد.