das hatte ich gerade probiert, klapp aber itrgendwie net?
Das hier geht leider so nicht:
Delphi-Quellcode:
unit HandoffButton;
interface
uses
SysUtils, Classes, Controls, StdCtrls, Buttons;
type
THandoffButton =
class(TBitBtn)
private
{ Private-Deklarationen }
FActive : Boolean;
FFrequenz :
string;
protected
{ Protected-Deklarationen }
public
property Active : boolean
read FActive
write FActive;
property Frequenz :
string read FFrequenz
write Ffrequenz;
constructor create(AComponent : TComponent);
override;
{ Public-Deklarationen }
published
{ Published-Deklarationen }
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('
Zusätzlich', [THandoffButton]);
end;
constructor THandoffButton.create;
begin
inherited create(Acomponent);
Height := 41;
end;
end.