在窗体显示中我用了
protected
procedure CreateParams(var Params: TCreateParams); override;
//---------------------------------------------------------------
procedure TBaseSiteMain.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.WndParent := GetDesktopWindow;
end;
使得SHOW出来的窗体A在任务栏中显示,但是我在该窗体上按某个快捷键会弹出一个SHOWMODAL窗体B,却自动把窗体A给最小化,请问有什么方法可以解决不让其最小化.
注意:窗体A不是主窗体....THANKS!~
protected
procedure CreateParams(var Params: TCreateParams); override;
//---------------------------------------------------------------
procedure TBaseSiteMain.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.WndParent := GetDesktopWindow;
end;
使得SHOW出来的窗体A在任务栏中显示,但是我在该窗体上按某个快捷键会弹出一个SHOWMODAL窗体B,却自动把窗体A给最小化,请问有什么方法可以解决不让其最小化.
注意:窗体A不是主窗体....THANKS!~
解决方案 »
- 如何使用MEDIA PLAYER控件获取MP3的持续时间?
- fastreport无法使用ShowBandByName和Page.NewPage是怎么回事
- Qreport问题??????????
- showmodal的用法、值的范围
- 这个异常该怎么解决?
- 数据备份或copy时的动画是怎么弄出来的?
- 请问 工具栏中那些只有在鼠标放在上面时才凸出来的按钮是怎么做的?
- 诚聘DELPHI数据库编程老师!
- 我想問一下我在Win2000下為何BDE中沒有MSSQL的數據驅動程序(就是直接用BDE連MSSQL)
- 请教:用ADO连本地SQL数据库用哪个数据泵(数据驱动)
- ComponentCount问题,帮忙看看(在线)!!
- 请高手看看为什么这段代码为什么不能在delphi中正确执行
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND; //------------------------------------------------- procedure Tmainfrm.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.ExStyle:= Params.ExStyle or WS_EX_APPWINDOW;
end;
//*WMSysCommand 函数的主体
//------------------------------------------------------
procedure Tmainfrm.WMSysCommand(var Msg: TWMSysCommand);
begin
case Msg.CmdType of
SC_MINIMIZE: begin
ShowWindow(Handle, SW_MINIMIZE);
Application.Minimize;
ShowWindow(Application.Handle, SW_HIDE);
ShowWindow(Handle, SW_MINIMIZE);
end;
SC_RESTORE: begin
Application.Restore;
ShowWindow(Handle, SW_RESTORE);
ShowWindow(Application.Handle, SW_HIDE);
end;
else
inherited;
end;
end;
很抱歉,你的方法不行!
很抱歉,是我搞错,呵呵,真是不同凡响!,THANK YOU!