我自己做的一个窗体模块,已经测试运行正常,
到用别人做的窗体动态加载后出现以下情况:在运行时:1: Edit不能获得输入焦点,但ComboBox可以
2:调用我的窗体的方法,属性会出错:Acess Vlilation错误。
3:别人加载我的窗体的方法:
MyFrm := TMyFrm.Create(Panel1);//Panel1是加载我的窗体模块的窗体上的
with Frm_PriceSetPara do
begin
Parent := Panel1;
Left := Panel1.Left;
Top := Panel1.Top;
Height := Panel1.Height;
Width := Panel1.Width;
Visible := true;
end;程序代码有点长,所以大家能给点思路,俺也给分,谢谢!!!!
我觉得,可能是加载窗体的错误,但找不到原因。
到用别人做的窗体动态加载后出现以下情况:在运行时:1: Edit不能获得输入焦点,但ComboBox可以
2:调用我的窗体的方法,属性会出错:Acess Vlilation错误。
3:别人加载我的窗体的方法:
MyFrm := TMyFrm.Create(Panel1);//Panel1是加载我的窗体模块的窗体上的
with Frm_PriceSetPara do
begin
Parent := Panel1;
Left := Panel1.Left;
Top := Panel1.Top;
Height := Panel1.Height;
Width := Panel1.Width;
Visible := true;
end;程序代码有点长,所以大家能给点思路,俺也给分,谢谢!!!!
我觉得,可能是加载窗体的错误,但找不到原因。
解决方案 »
- 这个查询我写不出来..............................
- 请大家帮我看一下,有什么不同啊!
- DELPHI7+adoquery的问题,求助高手帮忙!
- 一个曾经对软件狂热的程序员,想转行开个小店,真诚转让我自己独立开发的产品,寻找买主
- Delphi中Servers组件页上组件究竟有多大意义?
- 求救~如何设置按钮的快捷键?
- 我加载一接口商提供的DLL文件,放在自己新建的一个文件夹就会提示文件不完整,放在system32下就可以?
- 新手上路
- 动态生成form的问题.up有分~~~
- 关于打印的问题(快来看看),来者送分!!!
- 有谁知道那里有《进销存管理系统》源代码下载吗?
- 请问下面的语法哪错了?
应是存取错误
调试一下看是访问哪个组件出的错
--with Frm_PriceSetPara do 你这个窗体应该是个全局变量吧
with MyFrm do
begin
Parent := Panel1;
Left := Panel1.Left;
Top := Panel1.Top;
Height := Panel1.Height;
Width := Panel1.Width;
Visible := true;
end;而且你这个窗体如果不是ShowModal的话,应该在FormClose事件中
procedure TFrm_PriceSetPara .FormClose(Sender: TObject; var Action: TCloseAction);
beginend;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;