Выбор одного из вариантов в интерфейсе

[Espada]

Доброго дня, может подскажете такую инфу: появилась необходимость создать интерфейс с выбором одного из предложенных вариантов, интерфейс я сделал:

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

buttons
  cmOk     ,default;
  cmCancel ,,,'Отмена', hcOplTrudhlp, sci1Esc;
<<

           (.) Фамилия 1`
           (.) Фамилия 2`
           (.) Фамилия 3`
        <.  OK  .>   <.Отмена.>

>>
end; // screen
HandleEvent
cmPick:
{
}
cmOk:
{

closeinterface(cmDefault);
}      

подскажите пожалуйста, как задать условие, в cmOk, как я понимаю, что бы в зависимости от выбора фамилии, в переменную записывалась нужная инфа?

[Buddy]

В простейшем варианте ваша задача решается так.
В переменной wSurname возвращается значение из выбранного списка.

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

interface TestRadioButton;
var wSurname: word;
screen scrMain;
fields
 wSurname: noprotect;
buttons
  cmOk     ,default;
  cmCancel ,,,'Отмена',, sci1Esc;
<<

           (.) Фамилия 1`
           (.) Фамилия 2`
           (.) Фамилия 3`
        <.  OK  .>   <.Отмена.>

>>
end; // screen
HandleEvent
cmPick:
{
}
cmOk:
{
  Message('Result='+string(wSurname));
  CloseInterface(cmDefault);
}
end;
end.

[Espada]

В простейшем варианте ваша задача решается так.
В переменной wSurname возвращается значение из выбранного списка.

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

interface TestRadioButton;
var wSurname: word;
screen scrMain;
fields
 wSurname: noprotect;
buttons
  cmOk     ,default;
  cmCancel ,,,'Отмена',, sci1Esc;
<<

           (.) Фамилия 1`
           (.) Фамилия 2`
           (.) Фамилия 3`
        <.  OK  .>   <.Отмена.>

>>
end; // screen
HandleEvent
cmPick:
{
}
cmOk:
{
  Message('Result='+string(wSurname));
  CloseInterface(cmDefault);
}
end;
end.

всё получилось, спасибо большое.

[Buddy]

Не за что, рад был помочь.