着急;怎么让MDI子窗口Showmodal出来的窗口不在任务栏产生图标 着急;怎么让MDI子窗口Showmodal出来的窗口不在任务栏产生图标?MDIChild在从dll中载入,我想让它和正常MDI一样,子窗体showmodal出来的窗口在任务栏没有图标显示。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);form的create事件中加上这一句 你ShowModal 出来的一定不是MDI的子窗口 看来我没有说清楚: FMain FChild FChild.button1Click(Sender) begin FModal.ShowModal; end;FModal在任务栏会产生一个图标 同意,你ShowModal 出来的一定不是MDI的子窗口而且可以说根本就是子窗口,如果你指定他的父句柄是主窗体或者程序的话,任务栏上不会出现任何东西的。 子窗体只能是show的吧 showmodal是不可以的吧 希望一下能简单的描述我的意思://exe中代码FMain.mmN1Click(Sender :TObject) //FMain为MDIFORMbegin //该方法从dll中导入 //原型:GetClassType(var ClassType TBaseForm) //TBaseForm:是一个从TForm派生的类,所有子窗体都从这个基类派生 GetClassType(Tf); FChild:= tf.Create(Application) //f为子窗体 FChild.Show;end;//dll中的代码FChild.Button1Click(Sender :TObject)begin FModal := TFModal.Create(Application); FModal.ShowModal;end; 大家看清楚,我没有说我是把子窗体showmodal出来。我是说,子窗体已经show出来了,然后点击子窗体上的按钮,弹出一个窗口(以showmodal或者show方式,不是子窗体),这个弹出窗体在任务栏有图标 补充: 我的exe工程和dll工程->Poject->Options->packags->Build with runtime packages 已选中 不是吧,大侠们,子窗体是可以Showmodal的吧,我就做过一个登录窗体是用子窗体的Showmodal做的。子窗体是可以Showmodal的. 谢谢flyforlove(为情飞) ( ) 问题解决了,给分FChild.Button1Click(Sender :TObject)begin FModal.ParentWindow := Self.Handle; //这句 FModal := TFModal.Create(Application); FModal.ShowModal;end; 把你的FormStyle设为fsNormal;在程序中判断 if bModal then //bModal为你的显示方式。 ShowModal else formstyle:=fsmdichild; //MDI方式 最近接触到一个打印模块,发现个问题? 获取进程ID问题 关于编写自定义的属性编辑器 如何动态建立数据库? 请问paradox存图片文件的问题。 在delphi 当中如何控制excel 当中图片的大小!!最后十分都给您了,这可是卖血利来的钱啊。 Delphi 多线程算法(扫描器) 问题,附源代码 (盼望中) 在ADOQUERY里能不能不用SQL语句,而直接有语句来改变当前记录的值? 如何生成.Res文件? 现在好多邮件服务器发送邮件要认证,而我以前做的程序不能用,怎么解决? dbgrid里面能显示dbcheckbox吗? 关于activex的数字签名
GWL_EXSTYLE,WS_EX_TOOLWINDOW);form的create事件中加上这一句
FMain
FChild
FChild.button1Click(Sender)
begin
FModal.ShowModal;
end;FModal在任务栏会产生一个图标
你ShowModal 出来的一定不是MDI的子窗口
而且可以说根本就是子窗口,
如果你指定他的父句柄是主窗体或者程序的话,任务栏上不会出现任何东西的。
//exe中代码
FMain.mmN1Click(Sender :TObject) //FMain为MDIFORM
begin
//该方法从dll中导入
//原型:GetClassType(var ClassType TBaseForm)
//TBaseForm:是一个从TForm派生的类,所有子窗体都从这个基类派生
GetClassType(Tf);
FChild:= tf.Create(Application) //f为子窗体
FChild.Show;
end;//dll中的代码
FChild.Button1Click(Sender :TObject)
begin
FModal := TFModal.Create(Application);
FModal.ShowModal;
end;
我是说,子窗体已经show出来了,然后点击子窗体上的按钮,
弹出一个窗口(以showmodal或者show方式,不是子窗体),
这个弹出窗体在任务栏有图标
我的exe工程和dll工程->Poject->Options->packags->Build with runtime packages
已选中
begin
FModal.ParentWindow := Self.Handle; //这句
FModal := TFModal.Create(Application);
FModal.ShowModal;
end;
在程序中判断 if bModal then //bModal为你的显示方式。
ShowModal
else
formstyle:=fsmdichild; //MDI方式