2000环境98问题.解决马上给分!(在线等待)
我的项目在2000下运行没有问题,在98第二版中运行报错(系统常见错误,程序被关闭).
功能,通过修改窗体的parent来达到全屏和嵌入的目的:代码如下:
self 为窗体类
if not menu_name.Checked then //窗体模式,嵌入在主窗体中
begin
self.Parent :=FrmMain.pnlForm;//frmmain为主窗体,pnlform为其中一个panel.
self.Align := alclient;
self.Show;
end
else //全屏模式,错误在此
begin
self.Parent :=nil;
self.Show;
end;
说明:不能跟踪,(因为开发环境在2000下)