我做了一个,不知道是不是你的意思, 新建一个主窗体,然后再建一个窗口(这我是用一个FORM,还没有设为子窗体的) 然后在主窗体中加一个BUTTON和一个Panel1,在BUTTON中代吗如下procedure TForm1.ShowForm(FormClass: TFormClass; Form: TForm; FPal: TPanel); //窗口融合 begin if Form = nil then Form := FormClass.Create(nil); FPal.DockSite := True; with Form do begin DockSite := True; DragKind := DkDock; Align := alClient; HostDockSite := FPal; Show; end; end;别忘记声明啊!procedure TForm1.Button1Click(Sender: TObject); begin ShowForm(TForm2, Form2, Panel1); end;
MainForm.Brush.Bitmap:=Image1.Picture.Bitmap;
把Panel放到最低层,解决了一定给高分
最好的办法还是鼠标右键点击panel然后选control->send to back 即可
可能你的窗体上放了其它的控件,窗体默认显示最新加上去的控件
mdi的主窗体区域是不能放其他控件的
MDI中,你一定要往上画,而不是那样,只要画上去,才可以的;
新建一个主窗体,然后再建一个窗口(这我是用一个FORM,还没有设为子窗体的)
然后在主窗体中加一个BUTTON和一个Panel1,在BUTTON中代吗如下procedure TForm1.ShowForm(FormClass: TFormClass; Form: TForm; FPal: TPanel); //窗口融合
begin
if Form = nil then
Form := FormClass.Create(nil);
FPal.DockSite := True;
with Form do
begin
DockSite := True;
DragKind := DkDock;
Align := alClient;
HostDockSite := FPal;
Show;
end;
end;别忘记声明啊!procedure TForm1.Button1Click(Sender: TObject);
begin
ShowForm(TForm2, Form2, Panel1);
end;