关于窗体显示的小问题,答题都有分!!~~

yaccor 2005-07-14 04:06:58
1.设置Form1为主窗体,FormStyle属性为fsMDIform,
windowstate属性为wsmaximized;
通过button按钮触发Form2子窗体,
Frm_2:=TFrm_2.Create(Self);
try
Frm_2.ShowModal;
finally
FreeAndNil(Frm_2);
end;
设置Form2子窗体FormStyle属性为fsMDIChild,
windowstate属性为wsmaximized;
问题:点击按钮时,系统报错:cannot make a visible window modal.

2.SQL.Add('Select * from T_Table where name='''+edit_name.text+'''');
这句没问题,现在我想在Edit_Name中输入一个字符,再根据这个字符作为查询条件,我是这样写的
SQL.Add('Select * from T_Table where name like '''+edit_name.text+'''%');
但是不行,正确的该怎么写??


...全文
87 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
S.F. 2005-07-15
  • 打赏
  • 举报
回复
你想Frm_2 用模态形式显示的话;修改frm_2窗体FormStyle属性为'非'fsMDIChild形式,
chwdong 2005-07-14
  • 打赏
  • 举报
回复
1:Frm_2:=TFrm_2.Create(Self);
// try
Frm_2.Show;
// finally
// FreeAndNil(Frm_2);
// end;
2:SQL.Add('Select * from T_Table where name='+quotedstr(edit_name.text));

笨笨菜 2005-07-14
  • 打赏
  • 举报
回复
Form2设成不自动创建的窗体。
apartst 2005-07-14
  • 打赏
  • 举报
回复
用Frm_2.show,然后在Frm_2的OnClose事件里写action := cafree; 在OnDestory事件里写Frm_2 := nil;就行了
yaccor 2005-07-14
  • 打赏
  • 举报
回复
快下班了,高手快进
yaccor 2005-07-14
  • 打赏
  • 举报
回复
to:hhzqf1980(hh)
我已经把工程文件中FORM2的CREATE去掉了啊,还是提示cannot make a visible window modal
yaccor 2005-07-14
  • 打赏
  • 举报
回复
谢谢,第2个问题解决了,第一个问题还没,
用Frm_2.show的话,窗体占的资源不能释放啊,还有程序运行的时候
Frm_1和Frm_2都同时显示出来了
hhzqf1980 2005-07-14
  • 打赏
  • 举报
回复
1、工程文件中去掉FORM2的CREATE
2、like '''+edit_name.text+'%''');
S.F. 2005-07-14
  • 打赏
  • 举报
回复
1.修改form2 的显示方法为 Frm_2.Show;删除掉freeAndNil(frm_2);
2.SQL.Add('Select * from T_Table where name like '''+edit_name.text+'%''');

828

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 非技术区
社区管理员
  • 非技术区社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧