焦点不能到 show 在PANEL 上的form 中的EDIT 两个TForm,1个上有TPanel.1个上有TEdit.建立这两个Form ,并把有Edit的form 显示在另一个的form的panel上。但用鼠标怎么也进不了edit框!请教,该如何解决。? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.Button1Click(Sender: TObject);begin //form2.Parent := form1.Panel1;//该方法不建议使用,出现你所说的问题 form2.Dock(form1.Panel1,panel1.ClientRect);//建议使用停靠 form2.Show;end; 不能将焦点落在Edit上主要是因为form2不在激活状态。当前激活窗体为带panel的窗体(form1) procedure TMainForm.newBtnClick(Sender: TObject);var ChildFrm: TChildFrm;begin LockWindowUpdate(Handle); try ChildFrm := TChildFrm.Create(Self); //做其它事情。比如执行函数,显示向导等... finally LockWindowUpdate(0); end;end; Tobject 模板 关闭 运用事务功能,什么时候才需要使用ADOConnection1->Open这一句? Delphi下SQL语句的问题 一个送分的问题,如何把一个动态的记录数组做为参数传给一个函数?再问,如何在DataModule关掉整个程序,谢谢! 请问如何获得TWebBrowser得到的html内容 关于数据库备份的问题 求关于Appbar的demo,需有源码,100分!!!!!! 寻求一个算法的数据结构,高手必看!! 这是什么意思? 我去市场问了一下,条形码扫描仪要500多块钱一个,真的那么贵么? 一个有关MDI窗口苦恼的问题。在线恭候! 请问这是什么意思
begin
//form2.Parent := form1.Panel1;//该方法不建议使用,出现你所说的问题
form2.Dock(form1.Panel1,panel1.ClientRect);//建议使用停靠
form2.Show;
end;
var
ChildFrm: TChildFrm;
begin
LockWindowUpdate(Handle);
try
ChildFrm := TChildFrm.Create(Self);
//做其它事情。比如执行函数,显示向导等...
finally
LockWindowUpdate(0);
end;
end;