program alarm;
var
ok, clicked:command;
begin
ShowCanvas;
SetColor(255,255,255);
Repaint;
ok := createCommand('OK', CM_OK , 1);
addCommand(ok);
repeat
clicked := getClickedCommand;
until clicked <> emptyCommand;
if clicked = ok then halt;
end.
вот этот код выполняется для правого софткея клавиатуры а как на левый?