delphi4arab منتديات دلفي للعرب

السلام عليكم ورحمة الله تعالى وبركاته
نسخة الدلفي المستعملة 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;
جزاكم الله عنا كل خير

السلام عليكم حاول باستخدام vk_down و vk_up

(06-02-2018, 08:42 AM)S.FATEH كتب : [ -> ]السلام عليكم حاول باستخدام vk_down و vk_up

بارك الله فيك
لكن هناك مشكلة
عندما استعمل الكود في الفورم2 يعمل بشكل جيد الا انه عندما ادخل الى الفورم3 بواسطة زر موجود بالفورم2 واعود الى الفورم2 بعد الخروج من الفورم3 بواسطة زر يحمل عبارة close لا يعمل كود التنقل الا اذا وضعت المؤشر على اي dbedit موجودة بالفورم2
ما العمل يا ترى

السلام عليكم يجب ان يكون الفورم active اي يحتوي على focus لا بأس بان تحدد اول كونترول كـ DBEdit بنقل focus له ....

medreg

S.FATEH

medreg

S.FATEH