Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];




Вниз

Перечислимый тип 


Елена   (2002-04-08 13:41) [0]

Есть перечислимый тип TFormBorderStyle = (bsNone, bsSingle, bsSizeable, bsDialog, bsToolWindow, bsSizeToolWin)
Как присвоить форме значение этого типа по индексу?
Заранее благодарна.



MBo   (2002-04-08 13:47) [1]

ну так
borderstyle:=TFormBorderStyle(i);
i от 0 до 5
но это нехорошо.



arhelon   (2002-04-08 13:49) [2]

На сколько я разбираюсь в медицине вопрос содержит в себе ответ.
Разного рода bsNone и тд это простые целые типа 0,1,2....
Тут есть два способа либо найти в хелпе их значения либо методом научного тыкания перебрать ручками.



Елена   (2002-04-08 14:35) [3]

Не работает! :(



MBo   (2002-04-08 14:38) [4]

у меня работает ;)
var i:integer;

procedure TForm1.Button2Click(Sender: TObject);
begin
i:=(i+1) mod 5;
borderstyle:=TFormBorderstyle(i);
end;



Елена   (2002-04-08 14:58) [5]

Ой, и у меня получилось :o)
Спасибки, MBo!




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.03 c
7-57909           Lizard                2002-01-20 15:08  2002.04.18  
Какой модуль необходимо подключить чтобы сработала ShellExecute(0, nil,Pchar( explorer.exe ),nil,nil,1) ?


14-57881          GarryBaldy            2002-03-12 16:22  2002.04.18  
помогите!!! очень нужна помощь!!!


1-57704           lely                  2002-04-04 08:34  2002.04.18  
степень числа


14-57851          Sasha9                2002-03-07 12:30  2002.04.18  
Мой первый комп


1-57725           Fast                  2002-04-08 16:02  2002.04.18  
Dos кодировка