Создание формы диалога
Добавлено: 02 июл 2015, 16:53
Добрый день, уважаемые!
Пытаюсь сделать простенький интерфейс.
Как видно из листинга, есть в диалоге 2 поля ввода - год и месяц.
И вот хочется, чтобы месяц выбирался из ListBox'а.
Почитал справку - у поля ввода есть куча атрибутов, в частности, list, позволяющий задать выпадающий список с определёнными значениями.
Как этот атрибут правильно прикрутить?
Пытаюсь сделать простенький интерфейс.
Как видно из листинга, есть в диалоге 2 поля ввода - год и месяц.
И вот хочется, чтобы месяц выбирался из ListBox'а.
Почитал справку - у поля ввода есть куча атрибутов, в частности, list, позволяющий задать выпадающий список с определёнными значениями.
Как этот атрибут правильно прикрутить?
Код: Выделить всё
interface DialogTest 'Dialog Test';
show at (0,3,50,10);
create view
var
year_aa : word;
month_aa: word;
i : longInt;
;
handleEvent
cmInit:
{
RunDialog(DialogTest1, year_aa, month_aa);
Message('Год:' + string(year_aa)+' Месяц:'+string(month_aa));
}
end;
end.
!/*
DialogTest1 dialog
origin 20,10
fields
field1: word;
field2: word;
buttons
cmOk,default,,'OK';
cmCancel,,,'Выход';
<< 'Диалоговое окно'
` Год:` .@@@@@
`Месяц:` .@@@@@
<. OK .> <. Выход .>
>>