رنگی (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]

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