在delphi中怎样清除和隐藏一个子窗口,急、急!!
解决方案 »
- Showmessage 和 Messagedlg 的问题
- 钱 VS 技术,,望大家提出自己看法!!
- 如何从ADOQUERY中直接取出某条记录的各个字段值?如取第12条记录的值(不能用记录移动的方式)?
- 关于16进制数,递增的问题,在线等待100分
- 支持delphi
- 讨论:各位delphi战友请看!班主请看!
- 初学Delphi,请教怎样打开多个form的实例?
- 问下:这个函数是用来做什么的?formatfloat
- 各位高手,ADOQUERY控件的COMMANDTIMEOUT如何设置?????此属性不可用普通方法改变。
- 急急急!DCOM的配置问题,欢迎大家来讨论,看看就有分!
- 哪位能给我一个 长宋体简体字的TureType字库?
- 出现错误:Invalid variant type convertion!在线等待
关闭:Form2.Close;或Form2.Free;需要在implementation中uses unit2;(form2所在的单元)
form1.hide;
form1.free;
Action:=caFree;
判断窗体是否已打开:
If TForm(Application.FindComponent('SaleForm'))=Nil then
begin
SaleForm:=TSaleForm.Create(Application); //如果未打开,则创建
SaleForm.Show;
end
Else
SaleForm.Show; //如果已经打开,便显示(并不再创建)
在上例中,子窗体的所属对象为Application。
if mainform.MDIChildren[1]<> nil then//mainform为主窗体,
begin
ActiveForm.close;//activeform为子窗体
end
在打开子窗体的事件里做一个循环,关闭所有的子窗体,重新生成新子窗体
(在每个子窗体里的close事件中 添加 action:=cafree;) for i:=0 to mainform.MDIChildCount-1 then
begin
if mainform.MDIChildren[i]<>nil then
mainform.MDIChildren[i].close;
end;
然后在生成你的新窗体
ShowWindow(Child.handle, SW_hide)
显示隐藏
ShowWindow(Child.handle, SW_SHOW)