مشكور اخي المثال لديك يعمل بالشكل الذي اريده لكن على دلفي 7 وليس الاصدارات الجديده 10.3
عند تنفيذ الامر لدي لم يعمل الكود ولكن تم تفعيل هذا الخيار بالفورم KeyPreview اصبع يطبع الحرف الذي اضغطه بالكيبورد ولكن لا يقوم بارجاع النص الاول ..
هل يفرق الشيء لو قمت باضافه الكود داخل الحدث Form1_KeyDown بدلا من TForm1.FormKeyPress ؟
المثال يعمل على على النسخة 10.3
عموما أرفق مثال من مشروعك...
أقصد الملفات المصدرية لمشروعك
تفضل هذه نسخه اجرب عليها فهي ليست المشروع لكن ما اقصده يمكن تطبيقه هنا .. مع العلم انني لما افهم شيء من هذا الجزء الخاص بطباعه الحرووف واعادتها الكلمة القديمة بعد فتره من الوقت ، سوي اخذ الاكواد من مشروعك ولصقها في مشروعي
https://www.upload.ee/files/11613334/TEST_1.rar.html
1- فعل KeyPreview كما ذكرت
2- في الحدث OnTimer ضع
PHP كود :
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := OldStr;
end;
لقد أخطأت في (نسخ/لصق)
نفس الشيء اخي فهي كانت بالاصل
OldStr := Label1.Caption;
وتم تفعيل KeyPreview ليقوم بعرض الازرار المضغوطة لكن لا يقوم بارجاع النص القديم بعد الضغط ..
انظر الى الصورة التي ارفقتها لك قبل قليل
https://prnt.sc/s9r5nu نفس الشيء
لقد كان الرد خاطىء وعدلته لكنك سبقتني قبل التعديل
شاهدة المشاركة السابقة.
مشششششششكوووووووور اخوووي انحلت المشكله والبرنامج زبط متل ما بدي ضايل بدي اعملو سيريال تنصحني اعمل السيريال بحيث انو بيع الزبون البرنامج وما يقدر يشغلو سوى على جهاز واحد وحطلو فتره معينه مثل شهر والبرنامج يقفل ؟ وهل تنصحني بسيريال عبر رقم الهارك ؟ وكيف يمكنني تجربه الشيء اذا كان فعال مثلا لو كنت استطيع تجربته على ويندوز وهمي عبر احدى البرامج ..
عموما البرنامج انتهيت منه لكن اريد منك النصيحه حول هذا الشيء وسوف اتابع يوتيوب وان لم استطع سوف اطرح موضوع جديد او اتابع احدى المواضيع القديمة .. واكرر شكرا للاخوة
ابحث في المنتدى يوجد عدة مواضيع تتكلم عن سريال الهارد
إن لم تجد حلا يمكنك حينها أنت تفتح موضوع في قسم الأسئلة.