OOP-TRealEdit von TEdit abgeleitet und Fähigkeiten erweitert

[Hansa]

Hi,

man muß nur wissen wen man fragt. 8)

Zitat:

Hi Hansa
Also in D5 waren die ganzen Variant Geschichten in SYSTEM deklariert. Die Umstellung von D5 auf D6 klappt dabei problemlos, ob's umgekehrt genauso ist kann ich dir nicht sagen. Aber einfach mal ausprobieren.

Das SetSubComponent habe ich auskommentiert. Keine Auswirkung. Dann habe ich das SetParent wie von Motzi gesagt in den Quelltext geschrieben. Die Deklaration sieht nun so aus:

Code:

type
  TRealEdit = class(TCustomEdit)
  private
    fAlignment:TAlignment;
    fOnlyReals:boolean;
    fLabel:TLabel;
    procedure SetAlignment(Value:TAlignment);
    procedure SetOnlyReals(Value:boolean);
    procedure SetLabelPos;
  protected
    procedure SetParent(Value:TWinControl);
    procedure SetLabel(Value:TLabel);
    procedure CreateParams(var Params:TCreateParams); override;
    procedure KeyPress(var Key:Char); override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor destroy; override;
  published
    property Alignment: TAlignment read fAlignment write SetAlignment;
    property OnlyReals: Boolean read fOnlyReals write SetOnlyReals;
    property RealLabel: TLabel read fLabel write SetLabel;
  end;

Aber auch das hat keine Auswirkungen. Label ist nicht zu sehen, nur im ObjectTreeView.