المشاركات : 501
المواضيع 136
:
: 11
الإنتساب : Feb 2008
السلام عليكم ورحمة الله تعالى وبركاته
نسخة الدلفي المستعملة 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;
جزاكم الله عنا كل خير
المشاركات : 975
المواضيع 50
:
: 218
الإنتساب : Feb 2008
السلام عليكم حاول باستخدام vk_down و vk_up
و لرب نازلة يضيق لها الفتى ذرعا و عند الله منها المخرج
ضاقت فلما استحكمت حلقاتها فرجت و كنت اضنها لا تفرج
المشاركات : 501
المواضيع 136
:
: 11
الإنتساب : Feb 2008
(06-02-2018, 08:42 AM)S.FATEH كتب : السلام عليكم حاول باستخدام vk_down و vk_up
بارك الله فيك
لكن هناك مشكلة
عندما استعمل الكود في الفورم2 يعمل بشكل جيد الا انه عندما ادخل الى الفورم3 بواسطة زر موجود بالفورم2 واعود الى الفورم2 بعد الخروج من الفورم3 بواسطة زر يحمل عبارة close لا يعمل كود التنقل الا اذا وضعت المؤشر على اي dbedit موجودة بالفورم2
ما العمل يا ترى
المشاركات : 975
المواضيع 50
:
: 218
الإنتساب : Feb 2008
السلام عليكم يجب ان يكون الفورم active اي يحتوي على focus لا بأس بان تحدد اول كونترول كـ DBEdit بنقل focus له ....
و لرب نازلة يضيق لها الفتى ذرعا و عند الله منها المخرج
ضاقت فلما استحكمت حلقاتها فرجت و كنت اضنها لا تفرج
