请教Delphi高人 同事写的一个系统,有些FORM在我本机用DELPHI打开,属性OldCreateOrder = True,但是在我同事那里打开OldCreateOrder = False ,所有源代码都一样,Delphi版本相同(7.0),请问是什么原因? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 CSDN,好冷清啊? Forms单元里面,{$IF DEFINED(CLR)}的位置单步调试看看,两台电脑是否不同procedure TCustomForm.DefineProperties(Filer: TFiler);begin inherited DefineProperties(Filer); Filer.DefineProperty('PixelsPerInch', nil, WritePixelsPerInch, not IsControl); Filer.DefineProperty('TextHeight', ReadTextHeight, WriteTextHeight, not IsControl); Filer.DefineProperty('IgnoreFontProperty', ReadIgnoreFontProperty, nil, False);{$IF DEFINED(CLR)} Filer.DefineProperty('OldCreateOrder', IgnoreIdent, nil, False);{$IFEND}end; 什么都涨就是工资不涨 IDataObjec.SetData放入一段文字 请各位高手帮忙,如何从DELPHI中把数据库中数据导出到EXCEL中? FTP+SERV-U的问题 求修改MP3文件(ID3v)信息的代码??? IsASCII()这个函数在哪个单元中,我怎么编译不通过啊! 为什么用random(num)得到的数总是重复(我用了randmize的啊) 快来抢分! 运行外部程序ping的时候,如何传入执行参数? 数据库的问题,都来看一下吧,交流一下?? cxgrid中checkbox列,如何判断该列是否选中 窗口控件不会变动了..?奇异
begin
inherited DefineProperties(Filer);
Filer.DefineProperty('PixelsPerInch', nil, WritePixelsPerInch, not IsControl);
Filer.DefineProperty('TextHeight', ReadTextHeight, WriteTextHeight, not IsControl);
Filer.DefineProperty('IgnoreFontProperty', ReadIgnoreFontProperty, nil, False);
{$IF DEFINED(CLR)}
Filer.DefineProperty('OldCreateOrder', IgnoreIdent, nil, False);
{$IFEND}
end;