盒子论坛 v2.1

FMX 组件关联外部一个类后怎么写???

这是做成一个组件包使用时

测试一下: 自定义一个类 TTestClass.
  一个属性: ImageList:    引用外部一个组件.

  1. 设置这个属性到一个 Imagelist1 组件.  OK
  2. 将这个属性删除.  OK
  3. 当这个属性正关联一个  Imagelist1 组件时,  直接删除窗体上的  Imagelist1 组件, 则引发一个
     错误... Abstract Error..

   我去....我水平有限啊..... 有点晕....... 写过组件的高手给个提示啊!!!!!

    TTestClass = class(TControl)
    private
        FImageList: TImageList;
        procedure SetImageList(const Value: TImageList);

    published
        property ImageList: TImageList read FImageList write SetImageList;
    end;

procedure TTestClass.SetImageList(const Value: TImageList);
begin
    FImageList := Value;

   // 或写成.
{
   if Assigned(FimageList) then FImageList := Value; // 也出错.
  // 这题怎么破????

}
end;

procedure Register;
begin
        RegisterComponents('WYCtrl', [TTestClass]);
end;
----------------------------------------------

美国国务卿蓬佩奥回答大学生提问时说，“我曾担任美国中央情报局（CIA）的局长。我们撒谎、我们欺骗、我们偷窃。我们还有一门课程专门来教这些。这才是美国不断探索进取的荣耀

作者：

wenyue0811 (wenyue0811)	★☆☆☆☆	-
	普通会员

2021/2/28 19:21:28

1楼：

哈哈...问题解决了:

procedure TTestClass.SetImages(const Value: TImageList);
begin
FImageList := nil;
if Value <> nil then FImageList := Value;
end;
----------------------------------------------

美国国务卿蓬佩奥回答大学生提问时说，“我曾担任美国中央情报局（CIA）的局长。我们撒谎、我们欺骗、我们偷窃。我们还有一门课程专门来教这些。这才是美国不断探索进取的荣耀

信息

登陆以后才能回复