Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.09;
Скачать: CL | DM;

Вниз

цикл   Найти похожие ветки 

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
1-26130
HDD
2002-04-24 15:29
2002.05.09
Почта


4-26285
JAndrey
2002-02-28 07:12
2002.05.09
Где найти описание USER32.dll, Kernel32.dll ..........


1-26178
AndreyS
2002-04-25 13:28
2002.05.09
Запуск консольных приложений.


14-26236
lipskiy
2002-03-14 13:50
2002.05.09
Правда ли то, что XP, если она нелецензионная, может грохнуть винт на физическом уровне?


1-26127
Sheva
2002-04-24 10:59
2002.05.09
Invalid Pointer Operation.