ساخت EditBox گرافیکی

[mortezahbh]

با سلام :لبخندساده:

میخوام یک Edit Box داشته باشم که وقتی Mouse میره داخلش توسط یک Timer طول EditBox بزرگتر بشه و رنگ متن اون با Focus گرفتنش تغییر کنه و درصورت امکان وقتی از حالت Focus خارج میشه متن داخل اون توی یک Label نوشته بشه و Visible خودش False بشه.

این کار رو میشه با کد نوسی حل کرد ولی اگه 20 تا Edit Box داشته باشیم 20 تا Timer میخواد و کلی کد نویسی

با تشکر از همه دوستان:چشمک:

[mortezahbh]

دوستان لطفا راهنمایی کنید

[یوسف زالی]

برای این کار می تونید یک کامپوننت بسازید. نیازی هم به تایمر ندارید.
شروع کن به نوشتن، کمکت می کنم.

[mortezahbh]

برای این کار می تونید یک کامپوننت بسازید. نیازی هم به تایمر ندارید.
شروع کن به نوشتن، کمکت می کنم.
بدون تایمر چطوری طول ادیت باکسم رو کم کم افضایش بدم؟

[یوسف زالی]

می تونی از Sleep تو حلقه استفاده کنی.

[mortezahbh]

می تونی از Sleep تو حلقه استفاده کنی.
ممنون
میشه در این مورد یکم توضیح بدی چون تا حالا اینکار رو نکردم
واقعا ممنون:لبخندساده:

[یوسف زالی]

for i := 1 to 10 do
begin
Cntrl.SetBounds(...);
Sleep(25);
end