Question

delphi 中出现 has no parent window

主程序中调用dll中的form窗体(上面有个edit1)并嵌入主窗体中,当右单击edit1时出现, control 'edit1' has no parent window
dll中代码入下
function showlogin(frm:tform):thandle;stdcall;export;
var h:thandle;
begin
application.Handle:=frm.Handle;
if not Assigned(frmlogin) then frmlogin:=tfrmlogin.Create(application);
frmlogin.Parent:=frm;
frmlogin.Align:=alclient;
frmlogin.Show;
result:=frmlogin.Handle;
end;

Answer 1

frmlogin.Parentwindow:=frm.handle;