Einzelnen Beitrag anzeigen

iphi

Registriert seit: 13. Feb 2009
244 Beiträge
 
Delphi 7 Personal
 
#1

Default property überladen

  Alt 19. Mai 2021, 11:17
Delphi-Version: 7
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!
  Mit Zitat antworten Zitat