delphi – VCL组件不透明度/透明度

谷歌搜索解决方案时我发现了这个：

From Here,然后我想,如果我在窗体上绘制图像(OnPaint)然后设置AlphaBlend ON,我可以实现这个效果但是没有成功,当整个窗体是透明的时,主要的效果是没有实现,没有bg pic背后的备忘录.

我想要实现的效果:(在photoshop中完成)

这可能吗？如果是,怎么样？ (我不要求任何人提供完整的src代码,只要文章或小例子,如果可能,或方向,不管我能理解的方式)

thnx注意.

我找到了解决方案,在带有图像背景的表单上创建了alphablended表单,然后在添加的表单上添加备忘录并将其与客户端对齐,而不是最好的方式,但它工作正常：

procedure TForm1.Button1Click(Sender: TObject);
var
 MM : TMyMemo; frm : TForm;
begin
 frm := TForm.Create(Form1);
 frm.BorderStyle := bsNone;
 frm.AlphaBlend := true;
 frm.AlphaBlendValue := 150;
 frm.Left     := Form1.Left + 90;
 frm.Top      := Form1.Top + 90;
 frm.Width    := 300;
 frm.Height   := 300;
 frm.Position := poDesigned;
 frm.Visible := true;

 MM             := TMyMemo.Create(frm);
 MM.Parent      := frm;
 MM.BorderStyle := bsNone;
 MM.ParentColor := False;
 MM.Align       := alClient;
 MM.Color       := clBlack;
 MM.Font.Color  := clWhite;
 MM.Font.Name   := 'Sylfaen';
 MM.Font.Size   := 11;
 MM.Visible     := True;

 frme := True;
end;

但还有另外一个问题,当我按下备忘录时,背景形式失去焦点,当我将新形式的父亲设置为Form1时,上面的问题解决但透明效果消失了(窗口仍然是透明的,但你可以通过bg窗口看到没有可见背景)我该如何解决这个问题？