Delphi XE 窗体透明度

[天下v大乱]

Delphi XE下，Form.AlphaBlend := True; Form.AlphaBlendValue := 111;
如此设置后窗体就能全部半透明，但把Form ManualDock到其他Form后就没透明效果了。

[lyhoo163]

procedure TForm1.FormShow(Sender: TObject);
begin
  Form1.AlphaBlend:=true;
  Form1.AlphaBlendValue:=128;
end;

AlphaBlendValue值 0 - 254 之间。

[lyhoo163]

或许停靠技术与透明度不兼容。