Форум: "Основная";
Текущий архив: 2002.05.09;
Скачать: [xml.tar.bz2];
Внизцикл Найти похожие ветки
← →
ruslan_as (2002-04-24 10:07) [0]Делаю плавное закрытие формы. Вопрос: как сделать что бы в цикле
for i := cavb downto 0 do
begin
AlphaBlendValue := i;
Application.ProcessMessages;
end
при проходе "i" уменьшалось не на единицу, а на большее число. При операции i:=i-5 ругается - "Assignment to FOR-Loop variable "i" "
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
i, cavb : 0..255;
begin
if AlphaBlend=False then
begin
AlphaBlendValue:=255;
AlphaBlend:=True;
end;
cavb:=AlphaBlendValue;
for i := cavb downto 0 do
begin
AlphaBlendValue := i;
Application.ProcessMessages;
end
end;
← →
gek (2002-04-24 10:09) [1]Сделай в While
← →
Song (2002-04-24 11:13) [2]Изменение счётчика в цикле for не допускается.
При проблемах со счётчиком, снимите оптимизацию.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.05.09;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c