سلام چگونه تمامی Handle اشیاء داخل فرم رو بدست آوریم ؟؟؟

Printable View

چهارشنبه 05 اسفند 1383, 16:10 عصر
mkalone

سلام چگونه تمامی Handle اشیاء داخل فرم رو بدست آوریم ؟؟؟

سلام
به طور مثال من یک فرم دارم که دارای 1000 تا TEdit است و می خواهم
در نمایش فرم مقدار Text همه آنها پاک شوند.
درضمن اسامی آنها بر اساس نظم نیست که با FindControl و در یک حلقه این کار
رو بکنم

علت این امر این است که در نمایش مجدد فرم مقادیر قبلی مانده اند. (جهت اطلاع بعضی ها :wink: )

مرسی Mer30
:D
چهارشنبه 05 اسفند 1383, 17:20 عصر
Delphi-Clinic

سلام

با SendMessage به تمام اونا بگو که مثل آدم پاک شن. :)
چهارشنبه 05 اسفند 1383, 18:10 عصر
mkalone

لا بلد
Please komak
من علیرغم دوست داشتن کار با Message ها بلد نیستم با هاشون کار کنم
لطف کن یک مثال بزن ببخشیدا

ببین این کد میتونه کمکت کنه ؟





  for i&#58;=0  to Form1.ComponentCount-1 do

  if &#40;Form1.Components&#91;i&#93; is TEdit&#41; then

  &#40;Form1.Components&#91;i&#93; as  TEdit&#41;.Clear;

ببخشید البته ولی فکر کنم اگه اینجوری باشه بهتره :
for i&#58;=0  to Form1.‍ControlCount-1 do 

  if &#40;Form1.Controls&#91;i&#93; is TEdit&#41; then 

  &#40;Form1.Controls&#91;i&#93; as  TEdit&#41;.Clear; 

یک شنبه 09 اسفند 1383, 23:58 عصر
vcldeveloper

نقل قول:

ببخشید البته ولی فکر کنم اگه اینجوری باشه بهتره :

فرق چندانی نمیکنه. TControl زیر مجوعه ای از TComponent هست. با توجه به اینکه ممکنه تعدادی شی non-Visual بر روی فرم وجود داشته باشه، ممکنه که حلقه شما در زمان کوتاهتری تموم بشه .(چون Form1.ControlCount فقط اشیائی که از TControl ساخته شده باشند رو میشماره)