Ich versuche meine Komponente (TBitmapStream) zu installieren, aber er meckert immer:
"[Fehler] ImageStream.pas(36): Inkompatible Typen: 'TComponentClass' und 'Class reference'"
Delphi-Quellcode:
type
TBitmapStream =
class(TMemoryStream)
private
{ Private-Deklarationen }
protected
{ Protected-Deklarationen }
public
function Count: Integer;
function AddBMP(BMP: TBitmap): Integer;
procedure LoadFromImageList(
const IL: TImageList);
procedure SaveToImageList(
var IL: TImageList);
procedure GetBMP(
const Index: integer;
var BMP: TBitmap);
procedure Delete(
const Index: Integer);
procedure InsertBMP(BMP: TBitmap;
const Index: Integer);
procedure SaveToFile(
const AFileName: TFileName);
procedure LoadFromFile(
const AFileName: TFileName);
procedure Clear;
{ Public-Deklarationen }
published
{ Published-Deklarationen }
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('
Beispiele', [TBitmapStream]);
end;
Was kann ich machen?