为什么我的dll窗体调用不出来？

Question

dll：
function OpenForm(mainForm:TForm):TForm1;stdcall;
var
        Form1: TForm1;
        ptr:PLongInt;
begin
        ptr:=@(Application.MainForm);
        ptr^:=LongInt(mainForm);
        Form1:=TForm1.Create(mainForm);
        
        result := Form1;
 
end;调用：
function OpenForm(mainForm:TForm):TForm;stdcall;External'prjtrain.dll';procedure TFrmMain.Buttons1Click(Sender: TObject);
var
        Form1:TForm;
begin
        Form1 :=OpenForm(Application.MainForm);
        Form1.Parent := Self.Panel3;
        Form1.Show;
        Form1.WindowState := wsMaximized;
end;

Answer 1

Form1.Align:=alClient;
或者再试试：Form1.ManualDock(Panel3,nil,alClient);