Onendedit خاصية غير موجودة في دالفي

[merzoug2020]

 السلام عليكم
أريد أن أتعرف عندا نهاية الكتابة أو التوقف عن الكتابة في خاصية edit

[أبو معاذ]

وعليكم السلام ورحمة الله وبركاته ،
و أنا أريد أن أعرف ما ذا تريد بالضبط ؟

[merzoug2020]

مثلا عند كتابة في edit بالألة code barre أريد أعرف أنا الألة أكملة الكتابة لأنة la tochet de code bare تاعمل مثل لوحة المفاتيح

[Agmcz]

تكلم بالمنطق اخي
يجب ان تضع فواعد لنطبق عليها كلامك
ساجيبك كما سألت أنت
1- نهاية الكتابة:
هل حددت طول نص وبفرض أن النص طول محدد
هل ضغطاتك على الأزرار كلها تأخذ نفس الوقت
لنقول ان نص '1234567890' سيستغرق 3 ثواني لكتابته
2- التوقف:
عند كتابة أي حرف بمكن ان نقول أننا توقفنا
---------------------------

[mobile]

مثلا عند كتابة في edit بالألة code barre  أريد أعرف أنا الألة أكملة الكتابة لأنة la tochet de code bare تاعمل مثل لوحة المفاتيحسلهسله

السلام عليكم

لا  ليس هكذا  الة الكود بار ترسل المعلومة جملة واحدة وتقرائها جملة واحد و edit تستقبلها جملة واحدة  اي بمجرد الضغط على الزر تكن عندك سلسلة نصية في edit

الة الكود بار ترسل ضوء الى ورق الكود بار مثلا 12 وحدة  خطوط الكود بار السوداء تعتبر رقم واحد والفراغات 0  كيف تعرف الالة هذا ؟

اللون الاسود يمتص الضوء اي لا يعكس صح ؟ اذن اذا ارسلت الالة ضور ورجع تعتبره 0 والا 1  مثلا    00011111111 6 هده المعلومة بلغة بينر  ترسلها جملة الى الكمبيوتر ليفك ترميزها وتحول لتراه خطا وسلسلة نصية في edit والله اعلم

بل وحتى وان كتبة في edit بالحرف فاءن السرعة لا تتركك ترها سرعة الالة + سرعة الجهاز +سرعة USB !!!!

[h-farid]

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

استعن بـلأحداث التالية لعلها تفيدك : OnkeyPress, OnKeyDown

[sabre]

اليك هذا الكود

كود :

var  Form1: TForm1;  aaa: integer; implementation {$R *.dfm} // الخروج من مربع النص procedure TForm1.Edit1Exit(Sender: TObject); begin  showmessage('end');  Timer1.Enabled:=false; end; procedure TForm1.Timer1Timer(Sender: TObject); begin  aaa :=  aaa +   1   ;  // سيتم توقف عن العد 5 ثواني  // زيد أو نقص حسب الحاجة الى توقيت  if aaa = 5 then  begin   showmessage('end');   Timer1.Enabled:=false;  end;  Label1.Caption := timetostr(now);  Label2.Caption := inttostr(aaa); end; procedure TForm1.Edit1Change(Sender: TObject); begin aaa := 0; Timer1.Enabled := true; Label2.Caption := inttostr(aaa); end; procedure TForm1.FormCreate(Sender: TObject); begin aaa := 0; Timer1.Enabled:=false; end; procedure TForm1.Edit1Enter(Sender: TObject); begin Timer1.Enabled:=false; end;

[merzoug2020]

مثلا عند كتابة في edit بالألة code barre  أريد أعرف أنا الألة أكملة الكتابة لأنة la tochet de code bare تاعمل مثل لوحة المفاتيحسلهسله

السلام عليكم

لا  ليس هكذا  الة الكود بار ترسل المعلومة جملة واحدة وتقرائها جملة واحد و edit تستقبلها جملة واحدة  اي بمجرد الضغط على الزر تكن عندك سلسلة نصية في edit

الة الكود بار ترسل ضوء الى ورق الكود بار مثلا 12 وحدة  خطوط الكود بار السوداء تعتبر رقم واحد والفراغات 0  كيف تعرف الالة هذا ؟

اللون الاسود يمتص الضوء اي لا يعكس صح ؟ اذن اذا ارسلت الالة ضور ورجع تعتبره 0 والا 1  مثلا    00011111111 6 هده المعلومة بلغة بينر  ترسلها جملة الى الكمبيوتر ليفك ترميزها وتحول لتراه خطا وسلسلة نصية في edit والله اعلم

بل وحتى وان كتبة في edit بالحرف فاءن السرعة لا تتركك ترها سرعة الالة + سرعة الجهاز +سرعة USB !!!!

---

نعم أخي هاذا ماأقصده أريد معرفة عندى إنهاء الألة للقراء الكود بار في edit

---

لأطبق عليها البحث في القاعدة البيانات بذالك الكود الذي تمت قرائتهالآلة

[mobile]

اضغط مرتين على edit
او استعمل الحدث OnChange

كود :

procedure Tform1.Edit1Change(Sender: TObject); begin  if Edit1.Text = '' then        begin         Query.Filtered:=False;          // ............        end  else    begin    Query.Filter:='name like '+QuotedStr(Edit1.Text+'*');    Query.Filtered:=True;    end; end;

[maosalah]

الة الكود بار ترسل Enter عند نهاية الكود

يمكنك استغلال onkeypress

كود :

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then begin showmessage(edit1.text); end; end;