كيف نستخدم الأزرار الأربع ؟

[azr_tay]

السلام عليكم ،كيف نستخدم الأزرار الأريع : إلى البمبن ، إلى البسار، فوق و تحت؟

[you_per7]

و عليكم السلام

تفضل أخي الكريم

كود :

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;