窗体嵌入问题
使用以下代码进行窗体嵌入
procedure Tt_main.IntercontrolExecute(Sender: TObject);
var
rect1: Trect;
begin
if not t_interfase.Visible then
begin
if not Panel3.Visible then
Panel3.Show;
t_interfase.Visible := True;
Rect1:= Panel3.ClientRect;
ShowInter.Caption := '显示界面 ';
//将窗体t_interfase放入面板中
t_interfase.Dock(panel3,rect1);
panel3.DockManager.InsertControl(t_interfase,alclient,t_interfase);
end
else
begin
ShowInter.Caption := '隐藏界面 ';
Panel3.Hide;
t_interfase.Visible := False;
end;
end;
嵌入后发现
1.嵌入panel中的窗体可以拖离，也可以拖进嵌入区（类似于活动工具条）
2.嵌入panel中的窗体右上角有一个小叉叉（类似于主窗体的关闭按钮）
怎样做才可以使嵌入窗体既没有小叉叉，又不可以拖动呢？
[解决办法]
form1 := tform1.create(panel1); //form1最好设置成bsNone先,忘记不设置行不行了.
form1.parent := panel1;
[解决办法]
t_interfase.Parent := Panel1; 基本就可以了。
有几点顺便提醒楼主，希望有所帮助
1.变量命名应该参考一些规范。最典型的是参考VCL规范。这样你的代码会让你显得专业
2.名称的取舍可以做得更好。
[解决办法]
同意
