Eigene Komponete von TEdit ableiten?

[SirThornberry]

ich hab eine Vermutung, aber eben nur eine Vermutung. Wenn du das Edit vom Form kopierst ist das property "Color" gesetzt. Wenn du jetzt die Componente auf dem anderen Form wieder einfügst wird das Property Color auch gesetzt was ja im ersten Form den Wert von ColorEmpty hatte. Man müsste also noch das Property Color überschreiben.

Ich seh grad das Color so ein Property ist wo man nicht einfach eine Methode überschreiben kann (Set-Methode). Entweder man würde die Message abfangen oder das ganze umbiegen. Werd das gleich mal noch machen und dann hier reinstellen. Werde dafür das Property ColorNonEmpty weg rationalisieren so dass, das Edit den Wert von Color hat wenn es nicht leer ist.

Delphi-Quellcode:

  TEdit = class(StdCtrls.TEdit)
  protected
    fCheckEmpty: Boolean;
    fEmptyColor: TColor;
    fNonEmptyColor: TColor;
    procedure Change; override;
    procedure FSetCheckEmpty(AValue: Boolean);
    procedure FSetColor(AType: Integer; AColor: TColor);
  public
    constructor Create(AOwner: TComponent); override;
  published
    property CheckEmpty: Boolean read fCheckEmpty write fSetCheckEmpty default True;
    property ColorEmpty: TColor Index 0 read fEmptyColor write FSetColor;
    property Color: TColor Index 1 read fNonEmptyColor write FSetColor;
  end;
[...]
constructor TEdit.Create(AOwner: TComponent);
begin
  fCheckEmpty := True;
  fEmptyColor := clBlue;
  inherited Create(AOwner);
  fNonEmptyColor := inherited Color;
  Change;
end;

procedure TEdit.Change;
var LColor: TColor;
begin
  if fCheckEmpty then
  begin
    if Self.Text = '' then
      LColor := fEmptyColor
    else
      LColor := fNonEmptyColor;
  end else
    LColor := fNonEmptyColor;
  if LColor <> inherited Color then
    inherited Color := LColor;
  inherited;
end;

procedure TEdit.FSetCheckEmpty(AValue: Boolean);
begin
  if AValue <> fCheckEmpty then
  begin
    fCheckEmpty := AValue;
    Change;
  end;
end;

procedure TEdit.FSetColor(AType: Integer; AColor: TColor);
  procedure LSetVal(var ACurrVal: TColor);
  begin
    if (ACurrVal <> AColor) then
    begin
      ACurrVal := AColor;
      if fCheckEmpty then
        Change;
    end;
  end;
begin
  case AType of
    0: LSetVal(fEmptyColor);
    1: LSetVal(fNonEmptyColor);
  end;
end;

Zu beachten ist das mit einem Cast auf TCustomEdit oder StdCtrls.TEdit die Farbe trotzdem gesetzt werden kann.