delphi，使用Ressource中的一些图像填充TdxMemData图像列，并在cxGrid中显示它

Question

我有带有图像Filed的dxMemData，以及位于资源中的一些png图像，我通过单例对象公开了这些图像，如下所示：

  type
  ImagesRessource = class
  private
    constructor Create;
  public
    Man24: TPngImage;
    Woman24: TPngImage;
    RSMan24: TResourceStream;
    RSWoman24: TResourceStream;

    procedure Load_Man24;
    procedure Load_Woman24;
  end;

var
  Images: ImagesRessource;

implementation

constructor ImagesRessource.Create;
begin
  Load_Man24;
  Load_Woman24;
end;

procedure ImagesRessource.Load_Man24;    
begin 
     Man24 := TPngImage.Create;
     RSMan24 := TResourceStream.Create(hInstance, 'men_24', RT_RCDATA);
     Man24.LoadFromStream(RSMan24); 
end;

procedure ImagesRessource.Load_Woman24;    
begin
  Woman24 := TPngImage.Create;     
  RSWoman24 := TResourceStream.Create(hInstance, 'woman_24', RT_RCDATA);
  Woman24.LoadFromStream(RSWoman24);
end;

initialization 

Images := ImagesRessource.Create;

end.

之后，像这样填充dxMemeData

if(dxMemData1.FieldByName('isMale').AsBoolean) then        TBlobField(dxMemData1.FieldByName('SexeImg')).LoadFromStream(OverB.Besalama.Properties.V7.Images.RSMan24)
else        TBlobField(dxMemData1.FieldByName('SexeImg')).LoadFromStream(OverB.Besalama.Properties.V7.Images.RSWoman24);

现在问题与cxGrid，图像列不显示任何东西！ 我不知道为什么？ 或如何创建cxgrid图像？

Answer 1

要在CxGrid列上显示图像，请将列属性设置为ImageComboBox ，并将图像设置为图像列表 。