+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : سؤال ماذا ينقص هذا الكود (التنقل من سجل لأخر) (/showthread.php?tid=9160)
سؤال ماذا ينقص هذا الكود (التنقل من سجل لأخر) - medreg - 06-02-2018
السلام عليكم ورحمة الله تعالى وبركاته
نسخة الدلفي المستعملة xe8
قاعدة البيانات absolute database
ماذا ينقص هذا الكود حتى اتمكن من التنقل من سجل لأخر
كود :
procedure TFrmP.FormCreate(Sender: TObject);
begin
keyPreview := True;
end;
procedure TFrmP.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
vk_Prior: DM.Table1.Prior;
vk_next : DM.Table1.Next;
vk_Home : DM.Table1.First;
vk_End : DM.Table1.Last;
end;
end;
جزاكم الله عنا كل خيرRE: سؤال ماذا ينقص هذا الكود (التنقل من سجل لأخر) - S.FATEH - 06-02-2018
السلام عليكم حاول باستخدام vk_down و vk_up
RE: سؤال ماذا ينقص هذا الكود (التنقل من سجل لأخر) - medreg - 06-02-2018
(06-02-2018, 08:42 AM)S.FATEH كتب : السلام عليكم حاول باستخدام vk_down و vk_upبارك الله فيك
لكن هناك مشكلة
عندما استعمل الكود في الفورم2 يعمل بشكل جيد الا انه عندما ادخل الى الفورم3 بواسطة زر موجود بالفورم2 واعود الى الفورم2 بعد الخروج من الفورم3 بواسطة زر يحمل عبارة close لا يعمل كود التنقل الا اذا وضعت المؤشر على اي dbedit موجودة بالفورم2
ما العمل يا ترى
RE: سؤال ماذا ينقص هذا الكود (التنقل من سجل لأخر) - S.FATEH - 07-02-2018
السلام عليكم يجب ان يكون الفورم active اي يحتوي على focus لا بأس بان تحدد اول كونترول كـ DBEdit بنقل focus له ....