+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف نستخدم الأزرار الأربع ؟ (/showthread.php?tid=4828)
كيف نستخدم الأزرار الأربع ؟ - azr_tay - 31-12-2012
السلام عليكم ،كيف نستخدم الأزرار الأريع : إلى البمبن ، إلى البسار، فوق و تحت؟
كيف نستخدم الأزرار الأربع ؟ - you_per7 - 31-12-2012
و عليكم السلام
تفضل أخي الكريم
كود :
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case key of
VK_LEFT: showmessage ('This is a LEFT');
VK_RIGHT: showmessage('This is a RIGHT');
VK_UP: showmessage('This is a UP');
VK_DOWN: showmessage('This is a DOWN');
end;
end;