[Netscaper]

AlphaBlend. Только в Win2000 и более новых, в старых Windows никакого эффекта не будет. Для Delphi 5 - не помню, а в Delphi 6+:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  AlphaBlendValue:=128;
  AlphaBlend:=not AlphaBlend;
end;

[s]Исправлено: Netscaper, 19:31 29-10-2004[/s]