【搞定】[问题]写的组件代码在平台中测试出错**

dupit

这个组件代码在DELPHI6中测试没问题,在平台上如何测试?
组件代码见附件!!!

alang

1 你可以把这个控件当作第三方控件导入到平台使用
2 你在平台上新建一个资源集，把这个控件的所有代码放到资源集中来编译使用，但是在平台上不能自定义组件，就是不能注册到工具箱，只能代码创建和使用这个控件

dupit

我创建资源集后,代码编译在PUBLISED那里出错，斑竹能不能帮忙编译一下!谢谢!

alang

1 平台上不支持published，你直接注释掉就可以了
2 下面的property 中有default，也不支持，可以直接注释掉，没有影响的
3 不支持函数中嵌套函数，请把Dotimer 放到 Create 外面
4 InvalidateRect函数用到了指针，平台上不支持，要换成其他的函数实现
5   flags:array[Tjustification] of DWORD=(DT_CENTER,DT_LEFT,DT_RIGHT);
要改成
  var
  s:string;
  flags:array of DWORD;
  begin
  SetLength(flags, 3);
  flags[0] := DT_CENTER;
  flags[1] := DT_LEFT;
  flags[2] := DT_RIGHT;
7  TddgMarquee=class(Tcustompanel)
Tcustompanel要指定名空间，在uses中增加 Business.Forms
8 去掉Create 函数的override
9 去掉
  Property Align;
  Property Alignment;
  Property color;
  Property BevelWidth;
  Property BevelInner;
  Property Bevelouter;
  Property BorderWidth;
  Property BorderStyle;
  Property Ctl3D;
  Property Font;
  Property Locked;
  Property ParentColor;
  Property ParentCtl3D;
  Property ParentFont;
  Property Visible;
  Property onclick;
  Property onDblclick;
  Property onMouseDown;
  Property onMouseMove;
  Property onMouseUp;
  Property OnResize;
10 所有的枚举值都要增加枚举类型，写成类似 Tjustification.tjcenter
11 ...

alang

建议当作第三方控件导入到平台上使用

dupit

好的,我这里看看

alang

由于楼主长时间没有反馈，此贴结了，有问题请开新贴。