Caution: FireMonkey (FMX) and the Visual Component Library (VCL) are@H_502_4@ not compatible and cannot be used in the same project or@H_502_4@ application. That is,an application must be exclusively one or the@H_502_4@ other,either FireMonkey or VCL. The incompatibility is caused by@H_502_4@ framework differences between FireMonkey (FMX) and VCL.
我的应用程序是一个使用运行时包构建的纯VCL应用程序。所有VCL表单都存储在运行时程序包中。如果我要创建一个FireMonkey表单并存储在一个包中，我有没有机会在运行时在我的VCL应用程序中实例化这个FireMonkey表单？所以我可以享受FireMonkey的3D或HD效果。
解决方法
Just create a new FireMonkey form (2D or 3D,doesn’t matter) save it@H_502_4@ and then add it to your VCL application (just accept the warning). You@H_502_4@ can create your FMX form instance somewhere and just show it – no@H_502_4@ problem. But what if you want to create some nice control with@H_502_4@ animations or something and embed it into your existing VCL form?@H_502_4@ Well,put a TPanel on your VCL form and include the brandnew unit@H_502_4@ 07001 after the Vcl.ExtCtrls. Then just create@H_502_4@ your FMX form somewhere and assign it to the new Form property of your@H_502_4@ Panel – and boom,there you go.
其实FMXAdapter.pas代码很简单：
procedure TPanel.Resize;
begin
inherited;
ResizeForm();
end;
procedure TPanel.ResizeForm;
begin
if Assigned(FForm) then
Platform.SetWindowRect(FForm,RectF(BorderWidth,BorderWidth,ClientWidth + BorderWidth,ClientHeight + BorderWidth));
end;
procedure TPanel.SetForm(const AForm: TCommonCustomForm);
begin
FForm := AForm;
FForm.BorderIcons := [];
FForm.BorderStyle := TFmxFormBorderStyle.bsNone;
ResizeForm();
FForm.Visible := True;
Winapi.Windows.SetParent(FmxHandleToHWND(FForm.Handle),Handle);
end;