OOP-TRealEdit von TEdit abgeleitet und Fähigkeiten erweitert

[Hansa]

Zitat von mirage228:

...aber im OI steht immer noch taRightAlignment!

Da hat er Recht ! Nur wieso ist das so ?

Habe den Oki-Code so geändert (basierend auf meinem zuletzt geposteten):

Code:

constructor TRealEdit.Create(AOwner: TComponent);
begin
  inherited; 
  FAlignment := taRightJustify; 
  OnlyReals := true; 
  FRealLabel := TLabel.Create(self);
  FRealLabel.Parent := TWincontrol(self{AOwner});  // ******************
  FRealLabel.Name := 'RealLabel';
//  FLabel.SetSubComponent(true);
  FRealLabel.Caption := 'CAPTION';
  // Position des Lables setzen 
  SetLabelPos;
end;

Da kommt das im Anhang raus. Würde das Caption jetzt noch vor dem Real Edit und nicht innerhalb stehen, wärs das wohl gewesen. Und dann noch das von Mirage.