ерунда
 

if mc=0 then
begin
repeat
ok:=createCommand('OK', CM_OK, 1);
et:=createCommand('Exit', CM_EXIT, 1);

showTextBox('Имя:','Manage', 8, TF_ANY);

addCommand(ok);
addCommand(et);



repeat
clicked := getClickedCommand;

until clicked <>EmptyCommand;
if clicked=ok then begin
nov;
end;
until clicked=et;
end;
if mc=2 then break;
end;
until false;
end;



Што бы ни делал, собака не хочет при нажатии ОК ничего делать. В Чем ошибка?

Ответ: ерунда
 

var exitCmd, clicked: command;
begin
exitCmd := CreateCommand('Выход', CM_EXIT, 1);
AddCommand(exitCmd);
repeat
clicked := GetClickedCommand;
until clicked <> EmptyCommand;
end.