フォームを fade-in で表示するには？

解決

tama 2003-11-17 18:39:26 No: 5677

フォームを fade-in で表示しようとしています。
下記のコードを実行しますと、フォームが一瞬表示されてすぐに消え、
その後 fade-in されます。
smooth な fade-in を実現するにはどうすればいいのでしょうか？
(Win-Xp-home,D7-pro)

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
  show;
  AlphaBlend:=true;
  for i:=1 to 255 do begin
    AlphaBlendValue:=i;
    application.ProcessMessages;
  end;
end;

にしの 2003-11-17 18:46:15 No: 5678

Showした時点で、AlphaBlendがFalseか、AlphaBlendValueが255なのでは？
Showする前に設定しないと表示されますよね。

tama 2003-11-17 22:05:22 No: 5679

御教示通り、
  AlphaBlend:=true;
  show;
  for i・・・
  ・・・
で実現できました。
的確なご指摘をありがとうございました。