+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : تحديد فورم لارسال البيانات اليه (/showthread.php?tid=5291)
تحديد فورم لارسال البيانات اليه - talal - 04-06-2013
السلام عليكم . استخدم هذا الكود لانشاء فورم
كود :
var f1 : Tform1;
begin
f1 := Tform1.creat (self)
end;اذا كان لدي اربع او خمس فورمات من Tform1 كيف استطيع ان اجعل الفورم رقم ثلاثة هو المفعل واذا ارسلت بيانات الىedit موجوده على الفورم تذهب اليه لاتذهب الى فورم اخر
مع الشكر
تحديد فورم لارسال البيانات اليه - المحجوب - 04-06-2013
استخدم قبل اي امر اسم الفورم الذي سوف توجهه اليه ثم اتبعه بالكود
Form3.???????
بالنسبة لاظهار الفورم واخفائه
Form3.show;
Form1.hide;
اسف انا اكتب من جوالي واحببت الرد ( :
تحديد فورم لارسال البيانات اليه - talal - 06-06-2013
اخي الكريم الفورمات كلها هي Form1 على سبيل المثال . اي اذا ضغطت على الفتاح انشاء الفورم اربع مرات
كود :
var f1 : Tform1;
begin
f1 := Tform1.creat (self)
end;تحديد فورم لارسال البيانات اليه - المحجوب - 06-06-2013
كود :
فسوف ينشا اربع فورمات من نوع form1 واذا اردت ارسال بيانات الى الفورم رقم 2 فإنها تذهب الى اخر فورم انشا . وهو رقم 4ما الكود الذي تستخدمة لارسال البيانات الى فورم اخر ؟
تحديد فورم لارسال البيانات اليه - S.FATEH - 06-06-2013
عفوا دلفي ليس لدي حاليا
فقط عند انشاء الفورمات اعطهم تسميات مختلفة
مثال بسيط لانشاء فورمات زمن التشغيل
PHP كود :
private
MyForm: array of TForm;
procedure TForm1.CreateForms(Sender: TObject);
begin
SetLength(MyForm, Length(MyForm) + 1);
MyForm[Length(MyForm) - 1] := TForm1.Create(Self);
MyForm[Length(MyForm) - 1].Name := 'Form' + IntToStr(Length(MyForm));
MyForm[Length(MyForm) - 1].Caption := 'Form' + IntToStr(Length(MyForm));
MyForm[Length(MyForm) - 1].Show;
end;
شيئ من هذا القبيل عدل على الكود بما يناسبك
PHP كود :
for I := 0 to Screen.FormCount-1 do
begin
if Screen.Forms[I].Name := 'form3' then do waht you want
end;
تحديد فورم لارسال البيانات اليه - talal - 07-06-2013
الف شكر اخي الكريم . انا استخدمة الطريقة التي ذكرتها . ولكن بقي كيف استطيع ان اصل مكون موجود على الفورم . البيانات تنتقل من فورم عليه dbgrig الى فورم علية edit .
كود :
form1.edit1.Text:= DM.Qselectmainacc.Fields.FieldByName('name_acc').Value ;
form1.edit2.text := DM.Qselectmainacc.Fields.FieldByName('id_acc').Value ;
form1.edit3.text := edet1.textكود :
var er:integer ;
ftatname:string
begin
for er := 0 to Screen.FormCount-1 do
begin
if Screen.Forms[er].Name = ftatname then
begin
Screen.Forms[er].Show;
end;
end;
end;مع الشكر الجزيل
تحديد فورم لارسال البيانات اليه - S.FATEH - 08-06-2013
السلام عليكم اخي ان كنت قد وصلت الى الفورم تعامل مع المكونات عادي كانك تتعامل مع فورم اخر
كود :
Screen.Forms[er].Edit1.Text := 'dddddddddddddd';تحديد فورم لارسال البيانات اليه - talal - 08-06-2013
شكرا لك اخي الكريم . ولكن هكذا لايرى مكونات الفورم
يرى خصائص الفورم من . show ,Enabled, close وغيرها ولكنه لايرى المكونات الموجوده على الفورم . لانك تعمل من فورم اخر
تحديد فورم لارسال البيانات اليه - talal - 09-06-2013
الف شكر اخي الكريم على ال****** .
كانت بحاجة ان تضيف الفورم اولا
كود :
Tform1(Screen.Forms[er]).edit3.Text:= edit1.text ;