الوصول إلى edit text من فورم آخر

[صالح حمادي]

السلام عليكم
عندما نريد الوصول الى مربع نص من فورم آخر فإننا نقوم باضافة اسم الوحدة Unit و نكتب هكذا مثلا

كود :

x:=Form1.edit1.text

لكن عندما نلغي انشاء الفورم آليا عند فتح التطبيق فإننا لا نستطيع الوصول إلى أي كائن في الفورم.
فهل من طريقة أخرى لذلك

[Mr.DOS]

سلام عليكم
وضح اكثر  ..
عادة يكفي الربط
Uses Unit1,Unit2 ...
للتعرف على الفورم و العناصر ...

او

ربما المتغير X  غير معرف تحت Globale وبالتالي لا يمكنك اسناد له قيمة من فورم خارجي ؟ انت معرفه على Private
هذا ان كنت قد فهمت تساءلكـ ...

[Delphi4Us]

وعليكم السلام ورحمة الله

نلغي انشاء الفورم آليا

مع ان السؤال غير واضح ولكن
يبدو لي انك تحاول ان تسند قيمة للمتغير في الحدث OnGreate للنموذج مما يعني لاحظ الخطوات

1: تقوم بانشاء النموذج
2: في حدث الانشاء للنموذج تقوم باسناد قيمة للمتغير او بعد عملية الانشاء للنموذج
3: تقوم باظهار النموذج

كود :

If not Assginged(Form1) then  Form1 :=TForm1.create X:=233 Form1.show

وهنا ان القيمة التي اسندتها للمتغير لن تحصل لانها تأتي بعد ان تم انشاء النموذج فعلا
ولهذا يجب ان تستخدم الحدث OnShow وهناك تقوم باسناد قيمة للمتغير

[صالح حمادي]

ربما المتغير X  غير معرف تحت Globale وبالتالي لا يمكنك اسناد له قيمة من فورم خارجي ؟ انت معرفه على Private
هذا ان كنت قد فهمت تساءلكـ ...

و عليكم السلام أستاذنا.
لا .المتغير معرف بشكل طبيعي

وعليكم السلام ورحمة الله

نلغي انشاء الفورم آليا

مع ان السؤال غير واضح ولكن
يبدو لي انك تحاول ان تسند قيمة للمتغير في الحدث OnGreate للنموذج مما يعني لاحظ الخطوات

1: تقوم بانشاء النموذج
2: في حدث الانشاء للنموذج تقوم باسناد قيمة للمتغير او بعد عملية الانشاء للنموذج
3: تقوم باظهار النموذج

كود :

If not Assginged(Form1) then  Form1 :=TForm1.create X:=233 Form1.show

وهنا ان القيمة التي اسندتها للمتغير لن تحصل لانها تأتي بعد ان تم انشاء النموذج فعلا
ولهذا يجب ان تستخدم الحدث OnShow وهناك تقوم باسناد قيمة للمتغير

لا أريد اسناد متغير عند حدث oncreate
لقد قمت بتلخيص المطلوب في هذه الصورة

[أبو معاذ]

السلام عليكم.
يمكنك الوصول إليها بططريقة سهلة.

في الحدث OnCreate

اضف متغير مثلا اسمه Temp  من نوع الفورم التي ترغب في الوصول إليها.

PHP كود :

var
  Temp : TFMaForm;
begin
        temp := TFMaForm.create(self);
        temp.Edit1.Text := 'Delphi4arab';// للوصول إلى الموكونات الخاصة ب MaForm
        temp.ShowModal;// هذه إذا كنت تود إظهار الفورم
        temp.free;// لتحرير الفورم.          
end; 


أرجو أن أكون قد أفدتك.

[صالح حمادي]

السلام عليكم.
يمكنك الوصول إليها بططريقة سهلة.

في الحدث OnCreate

اضف متغير مثلا اسمه Temp  من نوع الفورم التي ترغب في الوصول إليها.

PHP كود :

var
  Temp : TFMaForm;
begin
        temp := TFMaForm.create(self);
        temp.Edit1.Text := 'Delphi4arab';// للوصول إلى الموكونات الخاصة ب MaForm
        temp.ShowModal;// هذه إذا كنت تود إظهار الفورم
        temp.free;// لتحرير الفورم.          
end; 


أرجو أن أكون قد أفدتك.

بارك الله فيك استاذنا سوف أقوم بتجربتها و اوافيك بالنتيجة

[صالح حمادي]

السلام عليكم.
يمكنك الوصول إليها بططريقة سهلة.

في الحدث OnCreate

اضف متغير مثلا اسمه Temp  من نوع الفورم التي ترغب في الوصول إليها.

PHP كود :

var
  Temp : TFMaForm;
begin
        temp := TFMaForm.create(self);
        temp.Edit1.Text := 'Delphi4arab';// للوصول إلى الموكونات الخاصة ب MaForm
        temp.ShowModal;// هذه إذا كنت تود إظهار الفورم
        temp.free;// لتحرير الفورم.          
end; 


أرجو أن أكون قد أفدتك.

ألف شكر أستاذنا لقد تمت العملية بنجاح