Всем доброго дня.
Вот возникло 2 проблемы (2-я - из 1-й):
1) сделать так, чтобы при изменении "градусника" оперативно менялся комментарий к величине
2) а собственно как потом выйти из этого - коды клавиш не определяются! (Нок-7610)
Текст вот такой:
gaugeID := FormAddGauge('Тип', true, 3, 1);// собственно градусник - от 1 до 7
while KeyToAction(GetKeyPressed) <> GA_FIRE do // ждем нажатия центральной клавиши
begin
value := FormGetValue(gaugeID);
if value = 1 then strgr:='тип1';
if value = 2 then strgr:='тип2';
if value = 3 then strgr:='тип3';
stringID1 := FormAddString(strgr+' '+integertostring(GetKeyPressed)); //выводит комментарий и добавляет код клавиши
delay(100); //задержка чтобы не перегружало запросами цикла
FormRemove(stringID1); //очистка элемента формы комментария для вывода нового значения
end;
Собственно сам градусник с комментарием работает безупречно.А вот цикл и выход из него - никак. И код клавиш всегда "0" - и на телефоне и на эмуляторе. Т.е. дело не в телефоне выходит...
Хэлп ми плиз, люди добрые!