Появление формы.

[Квэнди]

update добавь, поинтересней и поправильней будет

[Master-Skull]

Не знаю почему, но у меня плавное появление не работает... давно ещё делал, примерно так же как и вы тут писали, но не получалось.

[SERG1980]

Возможно ты в форме свойство AlphaBlend:boolean не выстаавил в true

[Alex21]

На активацию формы ставь.

 
procedure TForm1.FormActivate(Sender: TObject);
begin
for i:= 0 to 255 do
 begin
 Application.ProcessMessages;
 AlphaBlendValue:=i;
 end;
end;

[Tokolist]

эээ а вы в курсе с какой версии винды появилась полупрозрачность окон? а именно ф-я SetLayeredWindowAttributes. я просто предупредил

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

На активацию формы ставь.

а Вы уверены что целесообразно ставить на OnActivate?

ЗЫ
ИМХО такие циклы с Application.ProcessMessages извращения

[Ring0Sn]

Зачем так извращаться с циклами и vcl ?
юзаем api:
AnimateWindow(hwnd: HWND, dwTime: DWord, dwFlags: DWord);
hwnd - хэндл формы
dwTime - сколько необходимо времени, чтобы воспроизвести мультипликацию, в миллисекундах
dwFlags - тип мультипликации (можно комбинировать, смотрите флаги в Windows.pas)
примеры:

procedure TForm1.FormShow(Sender: TObject);
begin
  AnimateWindow(Handle, 500, AW_CENTER or AW_SLIDE);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  AnimateWindow(handle, 500, AW_BLEND or AW_HIDE);
end;

[Master-Skull]

Возможно ты в форме свойство AlphaBlend:boolean не выстаавил в true

Неужели ты считаешь меня настолько тупым?
2Alex21 на Activate сработало, спасибо

[Димарик]

у меня почему то в событии открытия формы, данный номер непроканывает, а когда форма открыта тогда получается.