رنگی (High light) شدن DBEdit جاری (که کابر روی آن قرار دارد)

[ali_abbasi22145]

سلام
من می خواهم که روی هر DBEdit که کاربر است رنگی (High light) شود و بعد TAB را زد و به DBEdit بعدی رفت حالا قبلی به حالت معمولی برگردد و این DBEdit که کاربر هست رنگی (High light) شود الی آخر....

[babak869]

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

procedure TForm1.DBEdit1Enter(Sender: TObject);

begin

DBEdit1.Brush.Color:=$00B6F3FC;

end;



procedure TForm1.DBEdit1Exit(Sender: TObject);

begin

 DBEdit1.Brush.Color:=clWindow;

end;

موفق باشید

[ghabil]

با این کد باید برای هر DBEDIT جداگانه کد رو بنویسی ، حداقل کد رو اینطوری بکن و به ایونت همه DBEDitها Assign کن.

procedure TForm1.DBEdit1Enter(Sender: TObject);

begin

(Sender As TDBEidt).Brush.Color:=$00B6F3FC;

end;



procedure TForm1.DBEdit1Exit(Sender: TObject);

begin

(Sender As TDBEidt).Brush.Color:=clWindow;

end;

[MNosouhi]

No Warez Activity

[ali_abbasi22145]

سلام
مرسی اساتید گرامی مشکلم حل شد!