|
надо:
program Vibr;
uses vl; // Vibr and Light class
var
label_id:integer;
begin
ShowCanvas;
drawText('MegaProga', 0 ,0);
repaint;
repeat
if GetKeyPressed = KE_KEY1 then vl.start_vibrator;
if GetKeyPressed = KE_KEY2 then vl.stop_vibrator;
until GetKeyClicked = KE_KEY0;
end.
на форме клавиши не работают, нужно добавлять команды
|