| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Перечислимый тип
Елена © (2002-04-08 13:41:00)Есть перечислимый тип TFormBorderStyle = (bsNone, bsSingle, bsSizeable, bsDialog, bsToolWindow, bsSizeToolWin)
Как присвоить форме значение этого типа по индексу?
Заранее благодарна.
Елена (2002-04-08 14:58:00) [1]Ой, и у меня получилось :o)
Спасибки, MBo!
MBo (2002-04-08 14:38:00) [2]у меня работает ;)
var i:integer;
procedure TForm1.Button2Click(Sender: TObject);
begin
i:=(i+1) mod 5;
borderstyle:=TFormBorderstyle(i);
end;
Елена (2002-04-08 14:35:00) [3]Не работает! :(
arhelon (2002-04-08 13:49:00) [4]На сколько я разбираюсь в медицине вопрос содержит в себе ответ.
Разного рода bsNone и тд это простые целые типа 0,1,2....
Тут есть два способа либо найти в хелпе их значения либо методом научного тыкания перебрать ручками.
MBo (2002-04-08 13:47:00) [5]ну так
borderstyle:=TFormBorderStyle(i);
i от 0 до 5
но это нехорошо.
| |
