مشکل در تغییر رنگ.............. ؟

[hghodsi]

با سلام
می خواهم در هنگامی که با SetFocus مکان نما Cursor را به کامپوننت بعدی می دهم رنگ آن نیز تغییر کند
مثلا به رنگ زرد تغییر کند تا کاربر متوجه شود که مکان نما در کجا قرار دارد و 2 ساعت به دنبال مکان نما نگردد.
لطفا کمکم کنید. :mad:

[hps]

نگاهى به رویداد OnEnter و OnExit (دومى براى برگردوندن رنگ به حالت عادى موقع خروج Cursor) بنداز.

[Ali Najafian]

کد زیر را OnEnter در تایپ کن

TEdit(sender).color:=clred;
TEdit(sender).font.color:=clwhite;



کد زیر را OnExit در تایپ کن


TEdit(sender).color:=clwhite;
TEdit(sender).font.color:=clblack;

[Ali Najafian]

کد زیر را OnEnter در تایپ کن
[/code]

TEdit(sender).color:=clred;
TEdit(sender).font.color:=clwhite;




کد زیر را OnExit در تایپ کن


TEdit(sender).color:=clwhite;
TEdit(sender).font.color:=clblack;

[code]

[jirjirakk]

و البته این کار رو برای همه ادیت باکس ها انجام دادن بسیار مشکل هستش :)
راه بهترش اینه که ادیت باکس رو خودتون یه تغییراتی توش بدین و بعد استفاده کنید ....

[najeeb]

ممنون جناب همکار :wink:

[hghodsi]

جناب آقای همکار سایت


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

لطفا راهنمایی بیشتر بکنید که
اولا" : چطوری می توانم در ادیت باکس تغییر بدهم ؟
دوما" : من از EDitBox , Maskedit , combobox , ... استفاده می کنم. یعنی باید تمام آنها را تغییر بدهم ؟

[Ali Najafian]

در یک روتین کلی ار تکه برنامه زیر استفاده کنید.



var
i:integer;
begin
for i:=0 to form1.controlcount-1 do
if form1.controls[i].classtype = TEdit then
TEdit(form1.controls[i]).color := clred;

end;

[hghodsi]

چگونه می توانم بفهمم Focus در کدام شی قرار دارد ؟ یعنی مکان نما در کدام شی قرار دارد. نام آن شی را از کجا بفهمم ؟

[hghodsi]

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

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

[hghodsi]

:thnx: