06-08-2017, 10:42 AM
السلام عليكم ورحمة الله تعالى وبركاته
كنت استعمل في نسخة الدلفي7 هذا الكود وكان يعمل بينما عند استعماله في نسخة الدلقب xe8
لا يعمل
ماذا ينقصه بارك الله فيكم
كنت استعمل في نسخة الدلفي7 هذا الكود وكان يعمل بينما عند استعماله في نسخة الدلقب xe8
لا يعمل
ماذا ينقصه بارك الله فيكم
كود :
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
vk_Prior: DM.Table.Prior;
vk_next : DM.Table.Next;
vk_Home : DM.Table.First;
vk_End : DM.Table.Last;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
keyPreview := True;
end;