火猴之烟花效果展示（firemonkey）_firemonkey mediaplay control 置于底层-优快云博客

本文链接：https://blog.youkuaiyun.com/winniezhang/article/details/97422190

本文介绍了一种将文字效果与视频背景相结合的技术方案，通过使用特定的软件工具和编程技术，实现了文字“世界,你好”在烟花视频背景上的透明显示。具体步骤包括使用华文琥珀字体创建文字，利用remove.bg进行图片抠图，以及通过Delphi编程在form1和form2中整合文字和视频元素。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

效果图如下：

思路：

1、在画板中使用字符工具，输入“世界 ,你好”，字体是华文琥珀，大小为150.

2、使用remove.bg抠图工具，将文字图片上传，处理完后下载。

3、使用form1中放置rectangle中fill.bitmap，加入第2步中下载的png图片。

4、新建一个form2，在其上放置mediaplayer+mediaplayercontrol，如下设置。

5、将form1的transparency设置为true。（透明）

6、注意form1，form2的位置设成：screencenter

mediaplayer1属性：

  MediaPlayer1.Name := 'MediaPlayer1';
  MediaPlayer1.FileName := 
    'D:\videos\firework.avi';

mediaplayercontrol1属性：

object MediaPlayerControl1: TMediaPlayerControl
  Size.Width = 625.000000000000000000
  Size.Height = 513.000000000000000000
  Align = Center
  MediaPlayer = MediaPlayer1
end

form2的属性：

  Form2.Name := 'Form2';
  Form2.Position := ScreenCenter;
  Form2.Transparency := True;

rectangle1的属性：

object Rectangle1: TRectangle
  Align = Client
  Fill.Bitmap.Bitmap.PNG =d:\fmxwordvideo\helloworld.png 
  Fill.Bitmap.WrapMode = TileStretch
  Fill.Kind = Bitmap
end

form1的属性：


  Form1.Position := ScreenCenter;

代码：

procedure TForm1.Action1Execute(Sender: TObject);
begin
  Self.MediaPlayer1.Play;
  form2.ShowModal;
end;

procedure TForm2.FormCreate(Sender: TObject);
var
  bit: TBitmap;
  bitAs: PByteArray;
begin
  bitAs := Rectangle1.Fill.Bitmap.Bitmap.CreateMask;
  self.Rectangle1.Fill.Bitmap.Bitmap.Clear(TAlphaColorRec.Black);
  self.Rectangle1.Fill.Bitmap.Bitmap.ApplyMask(bitAs);
end;