delphi fmx与vcl 混合编写 无 句柄的 登录窗口

vcl和fmx 可以 共同存于  一个 工程，

比如  登录 窗口，我们 想 用 dui 设计，让密码录入框  无 句柄，或者其他  控件无句柄

我们 先 建立  一个  vcl 工程，然后 建立 一个 fmx  工程 ，在fmx工程 里 把  设计好的 登录 界面  复制 到  

vcl  工程， 然后 加入vcl  工程， 不激活， 

 

然后 就是 下面的  代码：

 

procedure HideFMXAppWnd;
begin
if FmxAppWnd=0 then
  FmxAppWnd:=Windows.FindWindow('TFMAppClass',nil);
if (FmxAppWnd<>0) and (Windows.IsWindowVisible(FmxAppWnd)) then
  ShowWindow(FmxAppWnd,SW_HIDE);
end;




procedure TForm1.Showfmxform;

begin
  if Form4 = nil then  //form4  是 fmx窗体
  Form4 := TForm4.Create(nil);
  HideFMXAppWnd;
  Form4.showmodal;
  Form4.DisposeOf;
end;