الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

أرجوك أدخل

مغلق
بدأه soliman في 15 أغسطس 2003 · 5 رد · 885 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السؤال الاول هو كالتالي:

اريد ربط فورم1 بفورم2 ودلك عن طريق الفورم نفسة يعني مو من خلاال بتن أو تايمر أقصد فقط من خلاال البروسيدجر تبع الفورم الاول

السؤال الثاني هو كالتالي:

كيف يمكنني عند الانتها من تعبئة edit2 مثلا وضغط enter

والمؤشر مازال في الedit2 يتم تنفيد عمل ما

يعني الفكرة هي الاستغناء عن الموس يعني ما فية بتن عندي علي الفورم عندي فقط أثنين edit اريد بعد كتابة البيانات فيهما والضغط

علي مفتاح enter يتم تنفيد عمل ما

أرجو اني اكون أوضحت يا شباب

ولكم جزيل الشكر أرجو سرعة الرد لان الوقت يكاد ينفد

أرجوكم

#2

السلام عليكم

بالنسبة للسؤال الثاني :

في الحدث OnkeyDown لل edit1 اكتب الكود التالي

If Key = 13 then

Edit2.Setfocus

حيث أن الرقم 13 هو رقم مفتاح الإدخال

السؤال الأول :

يمكنك إظهار الفورم من الأحداث الموجودة في الفورم الأول مثلا

الحدث Onclick اكتب

form2.show

#3

السلام عليكم

بالنسبه للانتقال عند الضغط على enter

فيمكنك ذلك من خلال events

onkeydown في اليفنت الخاصه باللedit1

بالنسبه للسؤال الاول فلم افهم القصد جيدا ولكن يمكنك استدعاء فورم2

من فورم1 وذلك بنفس طريقه البتم بوضع

procedure tform1.showf
begin
form2.show;
end;

showf is aprocedure you make

saleh2003

#4

عفواً..على التطفل ...ولكن ..أذا كان لديكم ..اكثر من ...10 edit

في كل الفورم.من برنامج....فهذا سيرهق البرنامج ......على حد علمي:(

#5

لن يكون أي ارهاق للبرنامج اخي الكريم END فيكفي ان تكتب الكود مرة واحدة عند حدث FormKeyPress وتعيين خاصية Keypreview الى True وبذلك سوف يتحسس الفورم لك ضغطات المفاتيح وعند الضغط على مفتاح enter سوف يقوم بنقل التركيز الى العنصر التالي وكانك ضغطت على مفتاح Tab

الكود

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
 Key := #0;
 SelectNext(ActiveControl,True,True);
end;

end;

تقبلوا تحياتي

#6

السلام عليكم

أحيك أخي أبو هاني من الأعماق

هذا الموضوع مغلق.

مواضيع مشابهة