31-12-2012, 11:41 AM
31-12-2012, 01:09 PM
و عليكم السلام
تفضل أخي الكريم
تفضل أخي الكريم
كود :
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;