Интерфейс единичного выбора

[Gameus_]

Поделитесь примером плиз, поиском чет не нашел.
Интересует именно единичный выбор. Заранее спасибо.

[edward_K]

множ.
iGetKau.GetCodeKau(cgiPickMult or cgiNotClear, katkau.kodgroup,wNrec);
тогда вычиитывать через маркер
MarkerKauName := iGetKau.GetMarkerName(katkau.kodgroup );
одиночный
iGetKau.GetCodeKau(cgiNotClear, katkau.kodgroup,wNrec);
берете сразу из wNrec

[Gameus_]

мне самописный какой-нить нужен для примера

[Nikos]

Код: Выделить всё

interface GetPerson 'Сотрудники предприятия',cyan,EscClose, DoAccept;

view
var
  crec		: comp;
as select persons.*
from persons;

parameters
  crec;

browse b1 (,,sci1EscIns);
table persons;
fields 
  PERSONS.TABNMB 'Табельный номер': [15], protect;
  PERSONS.FIO 'ФИО' : [45], protect;
end;

Handleevent
  cmInit:
  {
    if tsOk = GetFirst Persons where ((crec == Persons.nrec)){};
  }
  cmDefault:
  {
    crec := Persons.nrec;
  }
end;
end.