رویداد ورود و خروج از edit

[Mahdi_S_T]

دوستان من میخوام یه کد بنویسم که هر موقع فوکوس وارد یه edit شد رنگ آن قرمز و وقتی خارج شد رنگ آن سفید شه ، البته برای یک edit رو میدونم ولی میخوام کلی باشه مثلا در یک Form که 20 تا edit داره نیام برای تک تک edit ها کد بنویسم میخوام یه کد باشه که برای همه edit ها عمل کنه ( چیزی شبیه به عمل حرکت روی کنترل ها با Enter که در keypress نوشته میشه)

[ghabil]

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

کار قشنگترش با کد هم اینطوریه:



procedure TTestForm.EditsEnter(Sender: TObject);
begin
(Sender as TEdit).Color := clRed;
end;

procedure TTestForm.EditsExit(Sender: TObject);
begin
(Sender as TEdit).Color := clWhite;
end;

procedure TTestForm.FormCreate(Sender: TObject);
var
i: Integer;
begin
for i:= 0 to ControlCount - 1 do
if Controls[i] is TEdit then
with Controls[i] as TEdit do
begin
OnEnter := EditsEnter;
OnExit := EditsExit;
end;
end;

[Cave_Man]

یه کامپوننت آماده توی delphi.about.com هست

[SYNDROME]

یه کامپوننت آماده توی delphi.about.com هست
حداقل لینکش را قرار دهید.
موفق باشید

[Cave_Man]

حداقل لینکش را قرار دهید.
موفق باشید
برای اینکه چیزی بدست بیاری حداقل باید زحمت سرچ جستجو و تحقیق رو به خودت بدی.
قسمت کامپوننت های سایت about مشخصه اگه این سایت رو دیده باشی راحت میتونی پیداش کنی
http://delphi.about.com/library/weekly/code/adpEdit.zip