Hallo,
ich möchte mir von TListBox eine Variante ableiten, bei der ein Property z.B. Color defaultmäßig anders ist als bei TListBox. Habs so versucht, geht aber nicht:
Delphi-Quellcode:
unit MyListBox;
interface
uses
SysUtils, Classes, Controls, StdCtrls, Dialogs, Graphics;
type
TMyListBox =
class(TListBox)
public
constructor Create(AOwner: TComponent);
overload;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('
Samples', [TMyListBox]);
end;
constructor TMyListBox.Create(AOwner: TComponent);
begin
inherited create(AOwner);
Color:=clLime;
end;
end.
Ich möchte das Property zur
Design-Time aber trotzdem ändern können.
Wie mache ich das? Danke!