Форум: "Основная";
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];
ВнизПеречислимый тип Найти похожие ветки
← →
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;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c