OldHandle := Application.Handle;
  gForm1 := TForm1.Create(Application);
  Windows.SetParent(gForm1.Handle, pParent.Handle);
  gForm1.Show;
兄弟是这样做的,但子窗体的按钮和工具栏上的提示信息不会显示请教,怎么解决这个问题。

解决方案 »

  1.   

    用exe的Screen覆盖Dll的Screen试试
      

  2.   

    DLL传TApplication就不会存在这个问题
      

  3.   

    楼上是这个意思吗?可窗体不显示了。
    function LoadForm(pHand: THandle; pParent: TPanel): Boolean;stdcall;
    begin
      result := true;
      Windows.SetParent(Application.Handle, pHand);
      gForm1 := TForm1.Create(Application);
      gForm1.Parent := pParent;
      gForm1.Show;
    end;
      

  4.   

    function LoadForm(App:TApplication; pParent: TPanel): Boolean;stdcall; 
      

  5.   

    function LoadForm(app: TApplication; pParent: TPanel): Boolean;stdcall;
    begin
      result := true;
      App.CreateForm(TForm2, gForm2);
      gForm2.Parent := pParent;
      gForm2.Show;
    end;