دسترسی به عناصر

[undefined]

با سلام
دوستان یه سوآل داشتم چجوری میتونیم به مقادیر عناصر عناصر داخلی اون که در زمان اجرا ایجاد میکنیم دسترسی داشته باشیم ؟؟(مثل یه دکمه در فرم)
با تشکر

[Felony]

منظورتون چی هست ؟
میخواین به متد های یک شئ که از قبل مشخص نیست دسترسی داشته باشید ؟

[undefined]

با سلام
ببینید ما یه فرم داریم که دوتا Edit و یه دکمه یا هرچیز دیگه ایی توش هست حالا یه فرم دیگه از روی این فرم میسازیم (در زمان اجرا) حالا چجوری میتونیم به خاصیت text یکی از اون Edit ها برسیم ؟؟؟
با تشکر

[Felony]

var
i: Byte;
begin
for i:=Form2.ComponentCount-1 downto 0 do
if (Form2.Components[i]).Name='Edit1' then
TEdit(Form2.Components[i]).Text:= 'Find';
end;

[undefined]

نه دوست من اینجوری نه من کلا فرم رو هم در زمان اجرا میسازم فقط یه کامپوننت نمیسازم به این شکل .


procedure TForm1.Button1Click(Sender: TObject);
var
t:TForm2;
begin
t:=TForm2.Create(self);
t.Show;
end;

حالا میخوام در رویداد یه دکمه دیگه به یکی از Edit های این برنامه دسترسی داشته باشم .

[Felony]

من هم که گفتم ، براتون یک نمونه نوشتم ، فایل ضمیمه رو ببینید .

[undefined]

نه این جوری نه من چندین تا فرم رو میسازم نمیتونم اینجوری براشون متغیر تعریف کنم .
این نمونه رو ببینید (پیوست شد)
من میخوام به عناصر کامپوننت هایی دست رسی داشته باشم که در این برنامه با کمک create Form ایجاد میشن که همونجور که میبینی بدون محدودیت در تعداد ایجاد میشن و هر کدوم هم مجزا کار میکنن .
با تشکر

[Felony]

var
i : Byte;
begin
for i := 0 to ComponentCount-1 do
if TForm(Components[i]).Name= 'Form2_1' then
TEdit(TForm(Components[i]).FindComponent('Edit1')).Text:= 'Find Me!';
end;