用结构可以这样
TMyStruct = record
  Label: TLabel;
  Image: TImage;
end;

解决方案 »

  1.   

    To prometheusphinx(白日梦) :TLabel和TImage好象不能用在结构里声明的
    TMyStruct = record
      Label: TLabel;
      Image: TImage;
    end;
    出错。
    如果换成
    TMyStruct = record
      Label: Integer;
      Image: String;
    end;
    都是可以的!不过这样我的问题还是没有解决!
      

  2.   

    TMyStruct = object
    private:
      Label: TLabel;
      Image: TImage;
    public:
      constructor Create;
      destructor Destroy;
    end;
    constructor TMyStruct.Create;
    begin
      Label := TLabel.Create(NIL);
      Image := TImage.Create(NIL);
    end;destructor TMyStruct.Destroy;
    begin
      Label.Free;
      Image.Free;
    end;使用:
    var 
      mystr: array [1..10] of TMyStruct;for i:= 1 to 10 do
      mystr := TMyStruct.Create;
    ...for i:=1 to 10 do
      mystr.Free;
      

  3.   

    最好是将TLabel和TImage实例捆到一个容器中去,如TPanel,然后注册为一个新的控件,这样使用很方便。
      

  4.   

    *****************************************
    *****************************************
    var
    handl:HWND;begin
    handl:=label1.Parent.Handle;
    ........
    end;我通过这种方法得到handl,那能不能通过handl来访问label1.Parent的其他属性呢?
    谢谢!
    *****************************************
    *****************************************
      

  5.   

    晕……
    你直接用Label1.Parent. ...不就可以直接使用其他属性了。
    通过Handle不能直接访问的,
    不过可以通过一些API访问。