Wie ein VCL aus TBitmap erstellen ?

**madina**

Hallo,

ich programmiere zum ersten mal eine Klasse und weiß nicht viel darüber, aber zu mindest habe ich aus der Hilfe diese Klasse zusammengestellt.

1. ich habe vor aus einer TBitmap ein VCL-Klasse zu erstellen:

zusammenfalten · markieren

Delphi-Quellcode:

			type 

  TAnalogUhr = class(TBitmap) 

  private 

    { Private-Deklarationen } 

    iOStu: Integer;

    iOMin: Integer;

    iOSec: Integer;

    Procedure SetStunde(iHour: Integer);

    Function  GetStunde: Integer;

  protected 

    { Protected-Deklarationen } 

  public 

    { Public-Deklarationen }    

  published 

    { Published-Deklarationen } 

    property Stunde: Integer read GetStunde write SetStunde default 0;

{    property Minute: Integer read GetMinute write SetMinute default 0;

    property Sekunde: Integer read GetSekunde write SetSekunde default 0;}

  end; 

procedure Register; 

implementation 

procedure Register; 

begin 

  RegisterComponents('Custom', [TAnalogUhr]); 

end;

Procedure TAnalogUhr.SetStunde(iHour: Integer);

begin

  if (Stunde<>iHour) then Stunde:= iHour;

end;

Function TAnalogUhr.GetStunde;

begin

  Result:= iOStu;

end;

Beim Kompilieren der Komponente kommt die Fehlermeldung:

"Inkompatible Typen: 'TComponentClass' und 'Class reference'"

2. wie kann ich diesen neuen Komponenten mit eigenen Icon dann versehen ?

mfg

Wie ein VCL aus TBitmap erstellen ?

Wie ein VCL aus TBitmap erstellen ?

Forumregeln