Не могу написать цикл (((

[DM_bite]

Помогите, пожалуйста с написанием цикла, который при каком-либо действии(например нажатии на кнопку) изменял значение какого-либо параметра формы(например : AlphaBlandValue) от начала до конца.

[NikLik]

если правильно понял...

procedure TForm1.Button1Click(Sender: TObject);
var
  i: byte;
begin
  form1.AlphaBlend := true;
  for i := 255 downto 1 do
  begin
    Application.ProcessMessages;//это для того, чтобы можно было работать 
//с приложением во время выполнения цикла
    form1.AlphaBlendValue := i;
    sleep(10);
  end;
end;

[Arigato]

Делайте так:

var I: Integer;
begin
  for I := 0 to 255 do
    Form1.AlphaBlandValue := I;
end;

P.S. тоже самое, что и выше, не успел

[DM_bite]

спасибо огромное!!!!!!!!!!!!

[DM_bite]

Еще вопрос на эту же тему: как сделать так чтобы при выходе приложение исчезало( ну то есть параметр AlphaBlendValue изменялся от 255 до 0)

[NikLik]

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
animatewindow(form1.Handle,//хэндл окна
500,//время анимации--можешь поэксперементировать
AW_BLEND//изменение прозрачности
or AW_HIDE);//прячем окно, если убрать этот флаг--окно будет постепенно появляться
end;

В аттаче--небольшая статья на эту тему.

[DM_bite]

низкий поклон(сорри за оффтоп)

[DM_bite]

Раз такое дело, то не буду создавать новую тему и спрошу: возможно-ли изменить кнопки, распложенные в верхнем правом углу(свернуть,восстановить и закрыть)

[NikLik]

Поменять внешний вид?

[DM_bite]

Сообщение от NikLik

Поменять внешний вид?

Да.Просто видел одну программу написанную в Delphi но не знаю как это сделать самому(((