دخول

medreg · 06-08-2017, 10:42 AM

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

h-farid · 07-08-2017, 05:40 PM

و عليكم السلام و رحمة الله و بركاته
الكود الذي وضعته يتعامل مه الفورم لذلك يجب أن تتأكد أن الفورم Is Focused
أو انقل الكود إلى الحدث KeyDown الخاص بالـ DBGrid

medreg · 08-08-2017, 02:36 PM

بارك الله فيكم

h-farid · 08-08-2017, 05:06 PM

حلت المشكلة ؟

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة