ерунда
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;
Што бы ни делал, собака не хочет при нажатии ОК ничего делать. В Чем ошибка?
|