PDA

نسخه کامل مشاهده نسخه کامل : چطور ميتونم يك edit رو به صورت چشمك زن در


Aamoo
07-08-2007, 14:28
سلام
چطور ميتونم يك edit رو به صورت چشمك زن_ يا اينكه تو يه بازه زماني از رنگي به رنگ ديگه تغيير كنه_ در بيارم ( اين كار رو واسه اخطار دادن به كاربر ميخوام انجام بدم)
پيشاپيش ممنون
soldier
07-08-2007, 17:41
خوب رنگ فونت رو میخواهی تغییر بدی یا رنگ خودش رو؟؟
Mavix
07-08-2007, 19:08
با سلام

با استفاده از کمپوننت Timer خاصیت Color را تغییر بده.
as13851365
08-08-2007, 08:39
یک تایمر بر روی فرم قرار بده و مقدار زیر را برایش بنویس

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;
Aamoo
08-08-2007, 11:37
سلام
با تشكر از توجه دوستان محترم

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

با سلام

با استفاده از کمپوننت 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;
ميشه لطفا در مورد rgb و random و اينكه چرا 3 تا random و اون اعداد (5000) يه كم توضيح بديد
خيلي متشكرم از اينكه منو راهنمايي ميكنيد
soldier
08-08-2007, 11:51
سلام

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

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

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

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

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

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

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


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


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

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


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

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


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

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

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

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

موفق باشید.
Aamoo
08-08-2007, 12:13
سلام
soldier جان خيلي ممنونم ميرم امتحانش كنم (البته كدي كه as13851365 عزيز هم گذاشتند چيزي جالبي بود ولي متاسفا نه دقيقا اوني نبود كه ميخواستم ولي بازم ازش ممنونم)
soldier
08-08-2007, 13:26
سلام

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

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

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

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


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

منتظر خبرت هستم...
موفق باشید
Aamoo
08-08-2007, 14:03
soldier جان واقعا ازت ممنونم
كد شما هموني بود كه من ميخواستم
بازم متشكرم
hamedvahedi
02-10-2007, 09:01
براي چشمك زدن label بهتره در تايمر، visible:=not(visible)
براي چشمك زدن متن edit بهتره در تايمر،edit1.font.color:=edit1.color كنيد و دوباره edit1.font.color:=clblack
; كنيد.