06-02-2018, 01:50 AM
السلام عليكم ورحمة الله تعالى وبركاته
نسخة الدلفي المستعملة xe8
قاعدة البيانات absolute database
ماذا ينقص هذا الكود حتى اتمكن من التنقل من سجل لأخر
نسخة الدلفي المستعملة 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;
جزاكم الله عنا كل خير