+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : Onendedit خاصية غير موجودة في دالفي (/showthread.php?tid=8389)
الصفحات:
1
2
Onendedit خاصية غير موجودة في دالفي - merzoug2020 - 06-02-2017
السلام عليكم أريد أن أتعرف عندا نهاية الكتابة أو التوقف عن الكتابة في خاصية edit
RE: Onendedit خاصية غير موجودة في دالفي - أبو معاذ - 06-02-2017
وعليكم السلام ورحمة الله وبركاته ،
و أنا أريد أن أعرف ما ذا تريد بالضبط ؟
RE: Onendedit خاصية غير موجودة في دالفي - merzoug2020 - 06-02-2017
مثلا عند كتابة في edit بالألة code barre أريد أعرف أنا الألة أكملة الكتابة لأنة la tochet de code bare تاعمل مثل لوحة المفاتيح
RE: Onendedit خاصية غير موجودة في دالفي - Agmcz - 06-02-2017
تكلم بالمنطق اخي
يجب ان تضع فواعد لنطبق عليها كلامك
ساجيبك كما سألت أنت
1- نهاية الكتابة:
هل حددت طول نص وبفرض أن النص طول محدد
هل ضغطاتك على الأزرار كلها تأخذ نفس الوقت
لنقول ان نص '1234567890' سيستغرق 3 ثواني لكتابته
2- التوقف:
عند كتابة أي حرف بمكن ان نقول أننا توقفنا
---------------------------
RE: Onendedit خاصية غير موجودة في دالفي - mobile - 06-02-2017
(06-02-2017, 06:17 PM)merzoug2020 كتب : مثلا عند كتابة في edit بالألة code barre أريد أعرف أنا الألة أكملة الكتابة لأنة la tochet de code bare تاعمل مثل لوحة المفاتيحسلهسله
السلام عليكم
لا ليس هكذا الة الكود بار ترسل المعلومة جملة واحدة وتقرائها جملة واحد و edit تستقبلها جملة واحدة اي بمجرد الضغط على الزر تكن عندك سلسلة نصية في edit
الة الكود بار ترسل ضوء الى ورق الكود بار مثلا 12 وحدة خطوط الكود بار السوداء تعتبر رقم واحد والفراغات 0 كيف تعرف الالة هذا ؟
اللون الاسود يمتص الضوء اي لا يعكس صح ؟ اذن اذا ارسلت الالة ضور ورجع تعتبره 0 والا 1 مثلا 00011111111 6 هده المعلومة بلغة بينر ترسلها جملة الى الكمبيوتر ليفك ترميزها وتحول لتراه خطا وسلسلة نصية في edit والله اعلم
بل وحتى وان كتبة في edit بالحرف فاءن السرعة لا تتركك ترها سرعة الالة + سرعة الجهاز +سرعة USB !!!!
RE: Onendedit خاصية غير موجودة في دالفي - h-farid - 07-02-2017
و عليكم السلام و رحمة الله
استعن بـلأحداث التالية لعلها تفيدك : OnkeyPress, OnKeyDown
RE: Onendedit خاصية غير موجودة في دالفي - sabre - 08-02-2017
اليك هذا الكود
كود :
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;RE: Onendedit خاصية غير موجودة في دالفي - merzoug2020 - 08-02-2017
(06-02-2017, 10:00 PM)mobile كتب :(06-02-2017, 06:17 PM)merzoug2020 كتب : مثلا عند كتابة في edit بالألة code barre أريد أعرف أنا الألة أكملة الكتابة لأنة la tochet de code bare تاعمل مثل لوحة المفاتيحسلهسله
السلام عليكم
لا ليس هكذا الة الكود بار ترسل المعلومة جملة واحدة وتقرائها جملة واحد و edit تستقبلها جملة واحدة اي بمجرد الضغط على الزر تكن عندك سلسلة نصية في edit
الة الكود بار ترسل ضوء الى ورق الكود بار مثلا 12 وحدة خطوط الكود بار السوداء تعتبر رقم واحد والفراغات 0 كيف تعرف الالة هذا ؟
اللون الاسود يمتص الضوء اي لا يعكس صح ؟ اذن اذا ارسلت الالة ضور ورجع تعتبره 0 والا 1 مثلا 00011111111 6 هده المعلومة بلغة بينر ترسلها جملة الى الكمبيوتر ليفك ترميزها وتحول لتراه خطا وسلسلة نصية في edit والله اعلم
بل وحتى وان كتبة في edit بالحرف فاءن السرعة لا تتركك ترها سرعة الالة + سرعة الجهاز +سرعة USB !!!!
نعم أخي هاذا ماأقصده أريد معرفة عندى إنهاء الألة للقراء الكود بار في edit
لأطبق عليها البحث في القاعدة البيانات بذالك الكود الذي تمت قرائتهالآلة
RE: Onendedit خاصية غير موجودة في دالفي - mobile - 08-02-2017
اضغط مرتين على 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;RE: Onendedit خاصية غير موجودة في دالفي - maosalah - 20-02-2017
الة الكود بار ترسل Enter عند نهاية الكود
يمكنك استغلال onkeypress
كود :
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then begin
showmessage(edit1.text);
end;
end;