W wengabc Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-18 #1 在foxmail中,显示邮件接收状态的窗体能够独立显示在任务中,我设计的程序中, 非主窗体从不独立显示在任务中,只显示一个主窗体,请问如何才能象foxmail一样?
P pcexplorer Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-18 #2 重载窗口的CreateParams procedure CreateParams(var Params:TCreateParams);override; procedure TForm1.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); Params.ExStyle:=WS_EX_APPWINDOW; end; //轻松搞定
重载窗口的CreateParams procedure CreateParams(var Params:TCreateParams);override; procedure TForm1.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); Params.ExStyle:=WS_EX_APPWINDOW; end; //轻松搞定
W wengabc Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-18 #3 pcexplorer,你真厉害,还有一个问题请教,愿给你加积分50。我想让报表窗体显示在任务栏,报表窗体在程序启动时自动创建,执行报表是 这样的form3.quickrep1.preview;该怎样做?
pcexplorer,你真厉害,还有一个问题请教,愿给你加积分50。我想让报表窗体显示在任务栏,报表窗体在程序启动时自动创建,执行报表是 这样的form3.quickrep1.preview;该怎样做?
P pcexplorer Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-18 #5 //只要得到窗口句柄就可以,但问题是我如何得到窗口句柄 //如下:只要得到窗口句柄 var H:integer; begin H:=FindWindow(nil,'Print Preview'); SetWindowLong(H,GWL_EXSTYLE,WS_EX_APPWINDOW); end;
//只要得到窗口句柄就可以,但问题是我如何得到窗口句柄 //如下:只要得到窗口句柄 var H:integer; begin H:=FindWindow(nil,'Print Preview'); SetWindowLong(H,GWL_EXSTYLE,WS_EX_APPWINDOW); end;
W wengabc Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-20 #6 pcexplorer: 你下面的代码我不明白怎么用,是让报表窗休显示在任务栏吗? 我是在preview加之前入的,但不行,请赐教,谢谢您! 只要得到窗口句柄就可以,但问题是我如何得到窗口句柄 //如下:只要得到窗口句柄 var H:integer; begin H:=FindWindow(nil,'Print Preview'); SetWindowLong(H,GWL_EXSTYLE,WS_EX_APPWINDOW); end;
pcexplorer: 你下面的代码我不明白怎么用,是让报表窗休显示在任务栏吗? 我是在preview加之前入的,但不行,请赐教,谢谢您! 只要得到窗口句柄就可以,但问题是我如何得到窗口句柄 //如下:只要得到窗口句柄 var H:integer; begin H:=FindWindow(nil,'Print Preview'); SetWindowLong(H,GWL_EXSTYLE,WS_EX_APPWINDOW); end;
P pcexplorer Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-21 #8 看Override;//他是重载,不需要你调用 Form1=Class(TForm1) procedure CreateParams(var Params:TCreateParams);override; private public end;
看Override;//他是重载,不需要你调用 Form1=Class(TForm1) procedure CreateParams(var Params:TCreateParams);override; private public end;