Получить ID сфокусированного элемента формы

[balashov]

Как в коде получить ID или хотя бы Name, поля таблицы Rec переменной формы на которой в текущий момент находиться курсор (фокус).
Может у кого есть готовый алгоритм?

Что бы было более понятнее мне надо:
Передать в функцию ID таблицы и ID поля, на котором в текущий момент находиться курсор.
ID таблицы непроблема а ID поля???

[satir]

Если правильно понял вопрос, то номер поля получают так

integer := rec.FIELDNO(Name);

[balashov]

Цитата:

Сообщение от satir

Если правильно понял вопрос, то номер поля получают так

integer := rec.FIELDNO(Name);

Неа не пойдет.
Мне надо:
1. Пользователь нажимает на карточной форме определенную кнопку
2. в OnPush обрабатывается данное событие, а именно в функцию передается две переменные ID таблицы и ID текущего поля в момент нажатия на котором находился курсор.
Вот примерный алгоритм, как бы так в repeatе, узнать ID поля на котором курсор стоит???
Или надо контролы формы обрабатывать??

RecRef.GETTABLE(Rec);
TableID:= RecRef.NUMBER;
Field.SETRANGE(TableNo, TableID);
Field.FIND('-');
  REPEAT
  
  UNTIL Field.NEXT = 0;

[randrews]

Думаю, придется каждого контрола OnActivate обрабатывать....
И на этом тригере вручную прописывать

VarIntegerFieldNo := 1;
VarIntegerFieldNo := 2;
....
и т.п.

Гемор, конечно...

Может кто лучше идею даст

[balashov]

Цитата:

Сообщение от randrews

Думаю, придется каждого контрола OnActivate обрабатывать....
И на этом тригере вручную прописывать

VarIntegerFieldNo := 1;
VarIntegerFieldNo := 2;
....
и т.п.

Гемор, конечно...

Может кто лучше идею даст

Наврятли тут что нибуть получиться по проичинам:
1. Нельзя узнать какому полю соответствует контрол формы
2. Нельзя узнать активен ли контрол или нет (это возможно только для формы)
Поэтому придеться тупо в OnActivate все мутить.

[satir]

Самый простой способ повесить на OnActivate запись в глобальную переменную результат от rec.FIELDNO И будет всегда нужный номер поля

[balashov]

Цитата:

Сообщение от satir

Самый простой способ повесить на OnActivate запись в глобальную переменную результат от rec.FIELDNO И будет всегда нужный номер поля

ну так и сделал

Цитата:

EVALUATE(FormID,DELSTR(CurrForm.OBJECTID(FALSE),1, 5));
RecRef.GETTABLE(Rec);
TableID:= RecRef.NUMBER;
FieldID:=FIELDNO("Sell-to Customer No.");

Только не красиво как то, в каждом контроле код плодить.

[satir]

А зачем вообще понадобилось знать на каком поле сейчас курсор(кроме того, что необходимо передавать в какую-то функцию)? Возможно существует другое решение?

[romeo]

Цитата:

Сообщение от satir

А зачем вообще понадобилось знать на каком поле сейчас курсор(кроме того, что необходимо передавать в какую-то функцию)? Возможно существует другое решение?

+1

[balashov]

Цитата:

Сообщение от satir

А зачем вообще понадобилось знать на каком поле сейчас курсор(кроме того, что необходимо передавать в какую-то функцию)? Возможно существует другое решение?

Типа курсовик пишу
Воспроизведение компьютерного голоса из C\AL
На элементе стоиш F1 нажимаеш, а он тебе в динамик бормочет справку по элементу