Как плавно показать картинку на черной форме.

[DeKot]

Через Image c прозрачностью от минимальной до максимальной.

[notHaker]

function AlphaBlend(DC: HDC; p2, p3, p4, p5: Integer; DC6: HDC; p7, p8, p9, p10: Integer; p11: TBlendFunction): BOOL; stdcall;
function AlphaDIBBlend(DC: HDC; p2, p3, p4, p5: Integer; const p6: Pointer;
        const p7: PBitmapInfo; p8: UINT; p9, p10, p11, p12: Integer; p13: TBlendFunction): BOOL; stdcall;

Берёте БитМап, на него отображаете то на что накладывать, и выше приведёнными функциями отображаете на канву Image. вот и всё. И было бы проще выводить BitBlt на канву формы, быстрей бы получилось и без мерцаний.

Альфа блиттинг исчо можно самописный. Это не сложно.

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Вы не знали? Почитайте правила раздела...
Модератор

[Alex Cones]

И никто почему-то не вспомнил этот код (Эх вы, люди...) :

Procedure PicToPic(PicName1,PicName2,Times,Sleeper: String);
 Var
  bm, bm1, bm2: TBitMap;
  p1, p2, p: PByteArray;
  i, y, x: integer;
 Begin
  Sleep(StrToInt(Sleeper));
  bm := TBitMap.Create;
  bm1 := TBitMap.Create;
  bm2 := TBitMap.Create;
  bm1.LoadFromResourceName(HInstance,PicName1);
  bm2.LoadFromResourceName(HInstance,PicName2);
  bm.PixelFormat := pf24bit;
  bm1.PixelFormat := pf24bit;
  bm2.PixelFormat := pf24bit;
  bm.Height :=bm1.Height;
  bm.Width :=bm1.Width;
  FRMIntr.IMGIntroSplash.Canvas.Draw(0, 0, bm1);
  For i := 1 To StrToInt(Times) - 1 Do
  Begin
   For y := 0 To bm.Height - 1 Do
    Begin
      p := bm.ScanLine[y];
      p1 := bm1.ScanLine[y];
      p2 := bm2.ScanLine[y];
      For x := 0 To bm.Width * 3 - 1 Do
        p^[x] := round((p1^[x] * (StrToInt(times) - i) + p2^[x] * i) / StrToInt(times));
    End;
    FRMIntr.IMGIntroSplash.Canvas.Draw(0, 0, bm);
    Application.ProcessMessages;
    Sleep(5)
  End;
  bm1.Destroy;
  bm2.Destroy;
  bm.Destroy;
 End;

[Вадим Буренков]

Я предлагаю самый идиотский метод из всех возможных .
1)Создаем форму с черным фоном на которую выводится лого.
2)Создаем форму без рамки в которой будет рисоваться логотип. У нее прозрачность 0 (почитай как сделать прозрачную форму в инете).
3)В таймере приравниваем координату формы 2 к координате формы 1 так, чтобы она была там где черный фон и по немногу увеличиваем прозрачность формы 2
Удачи .

[Пепел Феникса]

Вадим Буренков, тогда уж лучше LayeredWindow