کار با تمام کنترلهای از یک نوع [بایگانی]

Developer Programmer

چهارشنبه 16 فروردین 1385, 16:54 عصر

سلام
فرض کنید که بر روی فرم 10 تا کنترل (مانند Edit) گذاشته ایم و می خواهیم به همه این کنترل ها با یک حلقه For مقدار اولیه بدیم...
چطور میشه تمام کنترلهای فرم رو شناسایی کرد و فقط Caption آنهایی رو تغییر داد که مثلا Edit باشند ؟

mehranFX

چهارشنبه 16 فروردین 1385, 17:26 عصر

سلام
فرض کنید که بر روی فرم 10 تا کنترل (مانند Edit) گذاشته ایم و می خواهیم به همه این کنترل ها با یک حلقه For مقدار اولیه بدیم...
چطور میشه تمام کنترلهای فرم رو شناسایی کرد و فقط Caption آنهایی رو تغییر داد که مثلا Edit باشند ؟ اولاً احتمالا منظورت از Caption کنترلهای Edit خاصیت Text اونها بوده باشه ! ثانیاً به جواب سئوالت اینجوری می رسی

For i:=0 to ControlsCount -1 do
begin
if Controls[i].Classname = 'TEdit' then
TEdit(Controls[i]).Text:='MyText';
end اگه Syntax ایراد داشت ماله این بود که الان روی دستگاه من دلفی نصب نیست . خوش باشی!!

Developer Programmer

پنج شنبه 17 فروردین 1385, 08:46 صبح

اخیش! راحت شدم... خیلی خیلی ممنون

mehranFX

پنج شنبه 17 فروردین 1385, 10:58 صبح

اخیش! راحت شدم... خیلی خیلی ممنون
قابلی نداشت عزیزم !!!

alireza_dpn

شنبه 19 فروردین 1385, 12:14 عصر

این کد نیز بد نیست
for i:=0 to ComponentCount-1 do
If (Components[i] is TEdit) then
begin
(Components[i] as TEdit).Text := yourtext ;
end;

Developer Programmer

شنبه 19 فروردین 1385, 19:01 عصر

جدا" کدتون خیلی از مطالب فراموش شده رو یادم آورد...