OldHandle := Application.Handle;
gForm1 := TForm1.Create(Application);
Windows.SetParent(gForm1.Handle, pParent.Handle);
gForm1.Show;
兄弟是这样做的,但子窗体的按钮和工具栏上的提示信息不会显示请教,怎么解决这个问题。
gForm1 := TForm1.Create(Application);
Windows.SetParent(gForm1.Handle, pParent.Handle);
gForm1.Show;
兄弟是这样做的,但子窗体的按钮和工具栏上的提示信息不会显示请教,怎么解决这个问题。
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;
begin
result := true;
App.CreateForm(TForm2, gForm2);
gForm2.Parent := pParent;
gForm2.Show;
end;