38 lines
1.1 KiB
HTML
38 lines
1.1 KiB
HTML
<html>
|
|
|
|
<head>
|
|
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
|
|
<title></title>
|
|
<link rel="StyleSheet" href="../../default.css">
|
|
</head>
|
|
|
|
<body>
|
|
<H1>Ïåðåìåùåíèå îêíà ñ ïîìîùüþ êëàâèàòóðû</H1>
|
|
Äàííàÿ ïðîãðàììà îñóùåñòâëÿåò ïåðåìåùåíèå ãðàôè÷åñêîãî îêíà ñ ïîìîùüþ êëàâèàòóðû:
|
|
|
|
<blockquote>
|
|
<pre>
|
|
<code><b>uses</b> GraphABC;
|
|
<b><span style="font-size: 4pt">
|
|
</span>procedure</b> KeyDown(Key: integer);
|
|
<b>begin</b>
|
|
<b> case</b> Key <b>of</b>
|
|
<a href="../../PABCUnits/GraphABC/gr_VK.html">VK_Left</a>: Window.Left := Window.Left - 2;
|
|
<a href="../../PABCUnits/GraphABC/gr_VK.html">VK_Right</a>: Window.Left := Window.Left + 2;
|
|
<a href="../../PABCUnits/GraphABC/gr_VK.html">VK_Up</a>: Window.Top := Window.Top - 2;
|
|
<a href="../../PABCUnits/GraphABC/gr_VK.html">VK_Down</a>: Window.Top := Window.Top + 2;
|
|
<b> end</b>;
|
|
<b>end</b>;
|
|
<b><span style="font-size: 4pt">
|
|
</span>begin</b>
|
|
// Ïðèâÿçêà îáðàáîò÷èêîâ ê ñîáûòèÿì
|
|
<a href="../../PABCUnits/GraphABC/gr_events.html">OnKeyDown</a> := KeyDown;
|
|
<b>end</b>.</code>
|
|
</pre>
|
|
</blockquote>
|
|
|
|
|
|
</body>
|
|
|
|
</html>
|